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Foreword 



Whether you are a beginner to Atari Graphics or have been 
programming graphics for years, COMPUTEI's Second Book of Atari 
Graphics will prove to be an invaluable resource. There are articles 
for beginners and utilities that both novices and professionals will 
find useful. 

As with all COMPUTE! publications, you'll find a wide range 
of easy-to-understand tutorials, and high quality programs 
collected for your use and enjoyment. 

If you already have COMPUTEI's First Book of Atari Graphics, 
you know how useful it is; we know you will find this book just as 
valuable. And if this is your first COMPUTE! publication, you are 
in for some pleasant surprises. 
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Graphics in Mode 



Stephen Levy 



The Atari character set makes available numerous graphic diameters. 
Some ways to exploit this feature are explored here. 

Atari, long known for its superior graphics, has one graphics 
mode which is rarely used for graphics. Graphics mode is 
generally used only for text and text-oriented programs. Well, 
why not use graphics in mode 0? 

Plenty to Choose from 

Unlike modes 3 through 11, graphics mode has its own set of 
characters built-in which can be used to create some very nice 
designs. The short program below will show most of the graphic 
characters that are available in mode 0. 

1 POKE 8 2 , 9 : P K E 33,25 

2 GRAPHICS : C H A R = : L I N E = : P R I N T 
30 PRINT CHR* (CHAR) ; CHR* (32) ; 

4 CHAR=CHAR+1:LINE=LINE+1 

50 IF LINE = 3 THEN L I NE = : P R I N T :PRIN 

T 
60 IF (CHAR>26 AND CHAR<32) OR (CHAR 

> i S 5 ) THEN PRINT CHR$!27); 
7« IF CHAR = 32 THEN CHAR=1 28 : PR INT 
80 IF CHAR=155 THEN BOTE 40 
90 IF CHAR=160 THEN PRINT :GOTD 110 
100 GOTO 30 
110 POKE 82,2: POKE S3, 39: END 

What is seen on the screen when this program is RUN are the 
ATASCII characters from to 31 and 128 to 159. (A complete list of 
the character set can be found in Appendix C of the Atari 400/800 
BASIC Reference Manual.) Characters 128 to 159 are the inverse 
characters. 

Centering the Display 

The display has been centered for two reasons: it looks nicer that 
way, and it illustrates a way to place characters on the screen other 
than at the left margin. 
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Actually, the first character on each line is at the left margin. 
Look at line 10. Memory location 82 stores information the 
computer needs to find the correct column for the left margin. 
When you turn on the computer, a 2 is stored in this location. 
Likewise, memory location 83 stores the column of the right 
margin. All that has been done here is to change the margins to 9 
and 25. On line 110 the margins are restored to 2 and 39. 

There are a number of other ways to place characters on the 
screen at a specific place, including the POSITION, PLOT, and 
DRAWTO statements. More information about these statements 
will be provided a little later. 

Printing the Graphic Characters 

There are two ways to print each character in the character set. 
Printing the letter A can be done with either 

PRINT "A" 

or 

PRINT CHR$(65) 

Both methods produce the same results. The second method can 
be very inefficient for printing text to the screen, but it's very effi- 
cient for printing characters with consecutive ATASCII numbers 
and graphic characters. 

As an example, enter this line and press RETURN: 

FOR I = 65 TO 90:PRINT CHR$(I),:NEXT I 

Special Characters 

Characters 27 to 31, 125 to 127, 156 to 159, and 253 to 255 need 
special instructions in order to be printed. Note that line 60 checks 
for some of those characters. When it finds one, it prints character 
27 (the ESCape character) before printing the character. 

An alternative method can be used to print these characters. 
Make these changes in the program: delete line 60, add line 15, 

15 POKE 766,2 

and change line 110 to read 

110 POKE 82,2:POKE 83,39:POKE 766,0:END 

Try typing in the following program. It can be difficult to 
enter correctly if you are not experienced at entering these charac- 
ters. When the program is RUN, the results should be four short 
lines printed on the screen. The first line should have the ESCape 
symbol. The second and third lines should show backward 
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curved arrows (one will be inverse video); the last two lines 
should be the delete symbol and four arrows. 

If you do not get the correct results, the proper keystrokes are 
given after the listing. 

10 PR INT " {2 ESC} " 
20 PRINT " {ESCI {CLEAR} " 
30 PRINT " <ESC>fBECL>" 
40 PRINT " {ESC> (DELETE) " 
50 PRINT " (ESCXUP) {ESCJ CDOWNJ (ESO 
{LEFT}{ESC>{RI6HT}" 

To enter this program, type each line number, the word 
PRINT, a quote symbol ("), and the following keys: 

ESC, ESC, ESC, ESC, RETURN for line 10; 

ESC, ESC, ESC, CTRL-CLEAR, RETURN for line 20; 

ESC, ESC, ESC, CTRL-2, RETURN for line 30; 

ESC, ESC, ESC, CTRL-DELETE/BACK S, RETURN for line 
40; 

ESC, ESC, ESC, CTRL-UP arrow, ESC, ESC, ESC, CTRL- 
DOWN arrow, ESC, ESC, ESC, CTRL-LEFT arrow, ESC, ESC, 
ESC, CTRL-RIGHT arrow, RETURN for line 50. 

The Easy Way 

The program below prints the same characters as the previous 
program. By POKEing a 2 into memory location 766, you no 
longer need to press the ESC key three times for each character, 
but just once. 

5 POKE 766,2 



10 PRINT 

20 PRINT 

3 PRINT 

40 PRINT 

50 PRINT 



{ESC}" 

{CLEAR}" 

{SELL} " 

{DELETE}" 

CUP} {DOWN} {LEFT} {RIGHT! 



60 POKE 766,0 

PLOT and DRAWTO 

Any character can be used with the PLOT and DRAWTO 
command. The following program is self-explanatory and should 
give some idea of how to use these two commands in graphics 
mode 0. 

10 GRAPHICS 0:POKE 752,1: REM SET GRA 
PHICS MODE AND TURN OFF CURSOR 

20 PRINT " {DOWN} ": COLOR 148:REM ATAS 
CI I FOR CHARACTER TO PLOT 
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30 PLOT 2, 4: DRAWTO 36,4 
40 DRAWTO 36, 18:DRfiWTQ 2,18 
50 DRAWTO 2,3:REM NOTICE WE DRAW ONE 
POSITION PAST OUR STARTING POINT 
60 POSITION 5,7:PRINT "PRINT YOUR ME 

SSAGE HERE. BE" 
70 POSITION 5,9:PRINT "SURE NOT TO P 

UT TOO MANY" 
80 POSITION 5, 11:PRINT "CHARACTERS O 

N A LINE. " 
90 POSITION 2,20:REM MOVE CURSOR OUT 

OF THE WAY 
100 POKE 752,0: REM TURN CURSOR BACK 
ON 

POSmONing Characters 

Any character can be placed on the screen at any location chosen. 
The POSITION statement is easy to use if you follow certain rules: 

• The format for POSITION is POSITION c,r where c is the 
desired column (0 to 39), and r is the desired row (0 to 23). 

• A new POSITION statement will cause the next PRINT 
command to print over any characters which are at that location. 

• POSITION places the cursor anywhere on the screen. 

• Be careful printing to the thirty-ninth position on line — it 
will cause a line to wrap around to the next line. Likewise, be 
careful using the twenty-third line — it can cause the screen to 
scroll and lose the top line. 

• It is a good idea to first erase the spaces to be used. 

The next program also uses the POSITION statement, but 
this time a loop is used to change the locations. 

100 DIM TRIANGLE* ( 34) 

110 GRAPHICS 0:POKE 7 52 , 1 : SE TCOLOR 2 

, 7, 1 4: SETCOLOR 1,7,4 

120 C=18: R=l 

130 TRIANGLE$=" {H]{J}" 

140 POSITION C,R:PRINT TRIANGLE* 

150 FOR B=2 TO 32 STEP 2 

160 FOR A=2 TO B 

170 TRIANGLE* (A, A) = "■" 

130 NEXT A 

190 TRIANGLE$!A,A+l!="i{J}" 

200 C=C-1:R=R+1 

210 POSITION C,R:PRINT TRIANGLE* 

220 NEXT B 

230 POKE 752,0 
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Now add these few lines to the previous program and watch 
what happens to the triangle: 

250 FOR C=l TO 25 

260 A=l : B=2: GQSUB 300 

270 A=2: B=l : BOSUB 300 

280 NEXT C 

290 END 

300 SETCOLOR B , 7 , 4 : SETCOLOR A, 7, 14 

310 FOR D=l TO 50:NEXT D:RETURN 

Drawing a Picture 

The next two listings draw a simple picture. Both listings do 
exactly the same thing. Both versions of the drawing are included 
here as an illustration of two methods to print to the screen. 
When you're creating the picture, the first method is often easier 
because the picture can be seen while it is LISTed. The second 
method is supplied for purposes of comparison. 

Program 1 . Drawing with Characters 

10 BRAPHICS 0:SETCOLOR 4, 3, 6: SETCOLOR 
2, 1 1 , 14: SETCOLOR 1,11,2:P0KE 752, 

1 

15 POKE 559,0:REM THIS LINE OPTIONAL 

20 POSITION 14,6:PRINT " {H){J} 

{3 SPACES] <H> {J} " 

30 POSITION 14,7:PRINT " < B > i 7 M>tV>" 

40 POSITION 14,8:PRINT " { B> <!Q > i WJ CE> 

{Q}{W>{E>{V>" 

50 POSITION 14,9:PRINT " i B > { A> {S >{ D> 

i a > { s y i d : c v : ■ ■■ 

60 POSITION 14,10:PRINT " <B><Z>CXJ 

<:c> <:z>cx>{C>cv>" 

70 POSITION 14,11:PRINT "{B* 

{4 SPACES} {H> iWy 
30 POSITION 14,12:PRINT " i B > (B]{2 M3 

■ { V J " 
90 POSITION 14,13:PRINT " <. B 3 tB> ■ 

i V > " 
100 POSITION 14,14:PRINT "{B} fB> ■ 

<V> " 
110 POSITION 14, 15: PRINT " <B> {BX2 N> 

■ tVJ" 
120 POSITION 14,16:PRINT " CB> i7 N> 

{ V > " 
130 PRINT " C3 DOWN) A PICTURE IS WORT 

H A THOUSAND WORDS" 
140 POKE 559,34 
150 GOTO 150 
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Program 2. Drawing with CHR$ 



10 GRAPH 
2, 1 1 



IC5 0:SETCOLOR 4, 3, 6: SETCOLOR 
, 14: SETCOLOR 1,11,2:P0KE 752, 



15 
20 
3 
40 



50 R 

60 P 

70 N 

80 N 



90 F 

c 

100 
110 

200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 



OKE 
OR I 
OSIT 
OR H 
EAD 
RINT 
EXT 
EXT 
RINT 
WOR 
POKE 
GOTO 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



, 0: REM THIS 
TO 16 
14, I 
TO 9 



559 
= 6 
ION 
= 1 
A 

CHR* ( A) ; 
H 
I 

: P 
TH 



INE OPTIONAL 



1 1 



RIN 
A T 
9, 3 

,8 



T " -C3 DOWN} A PICTURE I 

HOUSAND WORDS" 

4 



13 
17 
1 , 



10, 
13, 



19,4. 



1 3 



1 



>2, 32, 32, 32 
>2.2, 13, 13. 



TO 

14, 



14 



4, 
1 4 



,32,8, 10,3 
,13,13,13, 
17, 23, 5, 22 
,19,4, 22 

8 to to o 

160, 32, 32, 
160, 32, 32, 
160, 32, 32, 
160, 32, 32. 
, 14, 14, 14, 



O O 

2 2 

o o 

^_ ^_ 

oo 
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Discovering 
"Hidden" Graphics 



Gregory L. Kopp 



GRAPHICS 1 and 2, the large-text modes, split the normal character set 
in two and allow only half to be used at once. Both modes also handle 
colors differently. Here's how to take advantage of those quirks. 

If you were a stumbling, beginning BASIC programmer like I was, 
you probably tried to enter a few "improper" graphics commands 
which resulted in curious and unexpected displays on your televi- 
sion screen. Before I understood the function and proper use of 
POKE 756 (which displays lowercase letters and special graphics 
characters in text modes 1 and 2), I stubbornly tried to put control 
characters onscreen without the requisite POKE, which produced 
only seemingly random keyboard characters and frustration 
instead. 

Much later, the thought nevertheless occurred to me that I 
might have accidentally discovered some "hidden" (or at least 
undocumented) graphics capability of my Atari. In the experi- 
mental binge to which owners of microcomputers are sometimes 
given, I used the PRINT #6; command to enter each keyboard 
character while pressing CTRL at the same time. Discovery! 
Although the Atari special graphics characters appeared in the 
PRINT #6; statement, the actual screen display consisted of 
keyboard characters, but not the characters for the keys I entered. 

Dutifully noting the results (Tables 1 and 2), I pondered the 
apparent micro-fluke, these "hidden" characters, then asked 
myself the inevitable scientific question: "So what?" Two uses 
came fairly quickly to mind — the first purely cosmetic, the 
second functional. 

If I could change these hidden characters from "default 
green" to other colors, I could eliminate the irksome problem 
encountered in modes 1 and 2 of having punctuation and 
numbers displayed in different colors from the text lettering. The 
INVERSE key! Sure enough, PRINTing the graphics characters in 



1 



inverse changed my hidden green characters to red. Now I could 
choose from normal character (orange), inverse normal (blue), 
CTRL character (green) and inverse CTRL (red). Experimenting 
further, I discovered I could achieve any Atari color by use of a 
SETCOLOR to 3 or POKE 708 to 711 command to change each 
respective character. No more would I have to sheepishly explain 
to those not-of-the-computer-persuasion why my apostrophe or 
my "1" was blue while my text was red! 

So much for cosmetics. If you are not bothered by the incon- 
sistent color text problem, then use the last two paragraphs as 
speed-reading exercises. However, if you have purchased soft- 
ware for redefining character sets (see Chapter 3), you may already 
have thought of the second application. Instead of redefining your 
lowercase character set (and thereby "losing" it) to achieve new 
characters, you may use "hidden graphics" to redefine the 
number set, selected punctuation marks, or arithmetic signs. 
While this could be done normally, using "hidden graphics" 
allows you to display numbers, punctuation, or signs in four 
colors instead of only two. (If you have not run Program 1 yet, try 
it. Then try to produce four different color l's the conventional 
way) 

A Second Approach 

Now enter and run Program 2. 

If you are trying to figure out how we got all those alphabet 
characters using PLOT and COLOR statements, read on. 

As any intermediate programmer can tell you, you cannot 
plot points in modes 1 and 2. You get absolutely nothing 
displayed if you try it. Of course, the stumbling beginner might 
think the reason you get nothing is that you did not enter a 
COLOR statement. Sandwiching COLOR 1 between the lines 
and trying again, you discover that you have plotted a ! instead of a 
point. "Pixel-head!" you chide yourself. "You can't use PLOT in 
modes 1 and 2!" You note this in your reference manual and rank 
yourself a step closer to intermediate programmer, missing the 
opportunity to discover more hidden graphics. 

The Atari will plot a character in modes 1 and 2 at whatever 
position the programmer commands. The nature and color of that 
character are determined by a single COLOR statement. Using 
the COLOR Statement Graphics Chart (Table 3) you can display 
any Atari keyboard character (POKE 756, 226 for lowercase) by 
using the associated COLOR statement, then plotting X,Y coordi- 
nates to place it at the desired position on the screen. 

10 
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Once again, SETCOLOR to 3 or POKE 708 to 711 can be 
used to color each individual character, including lowercase charac- 
ters which are normally limited to only two colors. (Note: These 
SETCOLORs and POKEs work only when using GR. 1 or 2 + 16.) 
Again, redefined characters may be used and this time manipu- 
lated arithmetically. Game writers, rejoice! 

While the PRINT #6; approach displays numbers, punctua- 
tion and arithmetic signs, the COLOR/PLOT technique allows 
access to upper- and lowercase letters as well. Preference for one 
method over the other will vary from user to user and application 
to application, as you will see once you have hied them a few 
times. 

Table 1 . Regular and Hidden Colors 

Character (Default) SETCOLOR POKE 

Normal orange 708 

"Hidden" green 1 709 

Inverse, normal blue 2 710 

Inverse, "hidden" red 3 711 
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Table 2. Hidden Graphics 

To Get 
Character Color 

Green 
Red 

1 Green 
Red 

2 Green 
Red 

3 Green 
Red 

4 Green 
Red 

5 Green 
Red 

6 Green 
Red 

7 Green 
Red 

8 Green 
Red 

9 Green 
Red 

: Green 
Red 

! Green 

Red 
Green 
Red 

# Green 
Red 

$ Green 

Red 

% Green 

Red 

& Green 

Red 
Green 
Red 

( Green 

Red 

) Green 

Red 

* Green 
Red 



Press Keys 
CTRLP 

INVERSE CTRL P 
CTRLQ 

INVERSE CTRL Q 
CTRLR 

INVERSE CTRL R 
CTRLS 

INVERSE CTRL S 
CTRLT 

INVERSE CTRL T 
CTRLU 

INVERSE CTRL U 
CTRLV 

INVERSE CTRL V 
CTRLW 

INVERSE CTRL W 
CTRLX 

INVERSE CTRL X 
CTRLY 

INVERSE CTRL Y 
CTRLZ 

INVERSE CTRL Z 
CTRL A 

INVERSE CTRL A 
CTRLB 

INVERSE CTRL B 
CTRLC 

INVERSE CTRL C 
CTRLD 

INVERSE CTRL D 
CTRLE 

INVERSE CTRL E 
CTRLF 

INVERSE CTRL F 
CTRLG 

INVERSE CTRL G 
CTRLH 

INVERSE CTRL H 
CTRL I 

INVERSE CTRL I 
CTRL J 
INVERSE CTRL! 
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To Get 








Character 


Color 


Press Keys 




+ 


Green 


CTRLK 






Red 


INVERSE CTRL K 




/ 


Green 


CTRLL 






Red 


INVERSE CTRL L 




— 


Green 


CTRLM 






Red 


INVERSE CTRL M 




. 


Green 


CTRLN 






Red 


INVERSE CTRL N 




/ 


Green 


CTRLO 


, % 




Red 


INVERSE CTRL O 




[ 


Green 


CTRL; 






Red 


INVERSE CTRL; 




@ 


Green 


CTRL. 






Red 


INVERSE CTRL . 




A 


Green 


ESC then BACK S 






Red 


ESC then CTRL + DELETE 




< 


Green 


ESC then CTRL + minus 






Red 


ESC then SHIFT + DELETE 




> 


Green 


ESC then CTRL + plus 






Red 


ESC then CTRL + TAB 




= 


Green 


ESC then CTRL + equals 






Red 


ESC then SHIFT + INSERT 




? 


Green 


ESC then CTRL + asterisk 






Red 


ESC then SHIFT + TAB 




— 


Green 


ESC then TAB 






Red 


ESC then CTRL + INSERT 




/ 


Green 


ESC then ESC 


> 


I 


Green 


ESC then CTRL + CLEAR 






Red 


ESC then CTRL + 2 



*greens manipulated by SE.l and POKE 709 
reds manipulated by SE.3 and POKE 711 
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Table 3. COLOR Statements Graphics Chart 



(SETCOLOR #) 


1 


2 


3 




(POKE register) 708 


709 


710 


711 




(default) green 


yellow 


red 


blue 






COLOR Number* 




Character 





32 


128 


160 


(space) 


1 


33 


129 


161 


! 


2 


34 


130 


162 


" (quotes) 


3 


35 


131 


163 


# 


4 


36 


132 


164 


$ 


5 


37 


133 


165 


% 


6 


38 


134 


166 


& 


7 


39 


135 


167 


' (apostrophe) 


8 


40 


136 


168 


( 


9 


41 


137 


169 


) 


10 


42 


138 


170 


* 


11 


43 


139 


171 


+ 


12 


44 


140 


172 


, (comma) 


13 


45 


141 


173 


— (minus) 


14 


46 


142 


174 


. (period) 


15 


47 


143 


175 


/ 


16 


48 


144 


176 





17 


49 


145 


177 


1 


18 


50 


146 


178 


2 


19 


51 


147 


179 


3 


20 


52 


148 


180 


4 


21 


53 


149 


181 


5 


22 


54 


150 


182 


6 


23 


55 


151 


183 


7 


24 


56 


152 


184 


8 


25 


57 


153 


185 


9 


26 


58 


154 


186 




27 


59 


t 


187 


/ 


28 


60 


156 


188 


< 


29 


61 


157 


189 


= 


30 


62 


158 


190 


) 


31 


63 


159 


191 


? 


96 


64 


224 


192 


@ 


97 


65 


225 


193 


A 


98 


66 


226 


194 


B 


99 


67 


227 


195 


C 


100 


68 


228 


196 


D 


101 


69 


229 


197 


E 
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102 


70 


230 


198 


F 


103 


71 


231 


199 


G 


104 


72 


232 


200 


H 


105 


73 


233 


201 


I 


106 


74 


234 


202 


J 


107 


75 


235 


203 


K 


108 


76 


236 


204 


L 


109 


77 


237 


205 


M 


110 


78 


238 


206 


N 


111 


79 


239 


207 


O 


112 


80 


240 


208 


P 


113 


81 


241 


209 


Q 


114 


82 


242 


210 


R 


115 


83 


243 


211 


S 


116 


84 


244 


212 


T 


117 


85 


245 


213 


U 


118 


86 


246 


214 


V 


119 


87 


247 


215 


w 


120 


88 


248 


216 


X 


121 


89 


249 


217 


Y 


122 


90 


250 


218 


z 


123 


91 


251 


219 


[ 


124 


92 


252 


220 


/ 


t 


93 


253 


221 


] 


126 


94 


254 


222 


A 


127 


95 


255 


223 


(underline) 



*Use this statement format: Color nn: PLOT x, y. For example, to put a green A on the 

screen, use: COLOR 97: PLOT 0, 
tCOLOR 155: PLOT.v, 1/ puts a carriage return on the screen at the PLOT location. If you 

are also going to PRINT to the graphics screen using PRINT #6; "n" , this command puts 

the PRINT #6 cursor in column of the line after the line specified in PLOTx, y. In other 

words, if your program executes this line: 

GRAPHICS 2:PRINT #6; "ABC"; :COLOR 155:PLOT 0,5:PRINT #6; "DEF" the letters 

ABC will be in line and the letters DEF will be in line 6. To put a red semicolon on the 

screen, you must POKE the number 219 into the appropriate place in screen memory. 
JCOLOR 125:PLOT x, y clears both the text window and the graphics screen. To put a 

green ] on the screen you must POKE the number 125 into the appropriate place in screen 

memory. 
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Program 1 . Hidden Graphics- 1 

10 GRAPHICS 2+16 

20 X = 

30 FOR L=l TO 50 

40 RC=INT(15*RND<0> ) : RS= < 2 55 *RND < > ) 

50 SETCOLOR 0,RC,6 

60 SOUND O, RS, 10,4 

70 POSITION 5,4 

80 ? #6; " 1 CQ>EKE-> " 

90 FOR W=l TO 25:NEXT W 

100 X=X+1:IF X=4 THEN X=0 

110 NEXT L 

120 SOUND 0,0,0,0 

130 GRAPHICS 2+16 

140 POSITION 5,4 

150 ? #6; " 1 < Q 3- 0{ E] " 

160 FOR W=l TO 500:NEXT W 

170 POSITION 2,7 

180 ? #6; "HIDDEN GRAPHICS!" 

190 GOTO 190 

Program 2. Hidden Graphics-2 

10 X=0: Y=0: Z=65 

20 GRAPHICS 2+16 

30 FOR AZ=0 TO 25 

40 SOUND O, 255-AZ*10, AZ+8, 8 

50 COLOR Z 

60 PLOT X,Y:IF X=18 THEN X=0:Y=Y+1 

70 X=X+1:Z=Z+1 

80 FOR W=l TO 50:NEXT W 

90 NEXT AZ 

100 IF Z=91 THEN Z = 1 93 : X =0 : Y=2 : GOTO 30 

110 IF Z = 219 THEN Z = 225 : X =0 : Y = 4 : GOTO 30 

120 IF Z = 219 THEN Z = 225 : X = : Y = 6 : GOTO 30 

130 FOR W=l TO SOOsNEXT W 

140 POSITION 2,9:? #6; "COLOR STATEMEN 

T" 

150 POSITION 4,10:? #6; "GRAPHICS '" 

160 GOTO 160 
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Copy tour Screen to 
tour Printer 

Harry A. Straw 



77ns is a simple, short screen dump for mode 0. It will work with any 
BASIC program. 

Here's a handy routine for copying text from your Atari screen 
(GRAPHICS mode) to your printer. It is set up to use two 
GOSUB commands in your main program: 

GOSUB 32010 to initialize 

GOSUB 32040 each time you want to line-print a page 
displayed on your screen. 

The program is straightforward, but a few comments may help 
you to run it smoothly. 

The main business of this program is the double FOR/NEXT 
loop in lines 32050-32110. With the POSITION command, these 
loops move the cursor over the entire screen, one position at a 
time. At each cursor position, line 32080 GETs the ASCII number 
for the character under the cursor, and line 32090 puts the corre- 
sponding character on the printer. Since I have an 80-column 
printer and the Atari screen is only 40 characters wide, I need line 
32105 to get printer carriage return at the proper place. You may 
be able to delete this line if you have a 40-column printer (or one 
that can be set to 40 columns). 

Line 32040 (printer carriage return) makes sure that the 
printer head starts copying at its left-hand margin. Line 32120 
"homes" the cursor at the end of the subroutine. This is not 
always necessary, but, depending on the next line in your main 
program, it may prevent an ERROR - 141, "cursor out of range." 

You must OPEN a channel to GET from the screen. I use 
channel number 5, leaving channels 1-4 free for use in main 
programs. The initializing subroutine in lines 32010-32030 does 
this. It also expands the Atari display to its full 40-character width 



17 



and 24-line height to match the cursor movement controlled by 
lines 32050 and 32060. The OPEN command clears the screen, so 
you must OPEN before displaying the text you want to copy. Just 
be sure your main program says GOSUB 32010 ahead of the screen 
display to be printed. 

If you have only a few lines to copy no problem. Merely 
adjust line 32050 to cover the rows you want to scan. Otherwise, 
the printer will run for all 24 rows, printing a lot of blank spaces 
wherever nothing shows on the screen. 

There is no CLOSE #5 statement in the listing. This leaves 
channel 5 open, so it is not necessary to repeat GOSUB 32010 for 
each page to be line-printed. 

Take advantage of Atari's ability to merge stored programs 
with RAM-resident programs by recording this routine with the 
command LIST"C:" and reading it with ENTER"C:" (or ENTER 
"D:Filename). CSAVE and CLOAD won't work this way. In fact, 
CLOAD erases programs in RAM! This routine starts with a high 
line number, 32000, so its line numbers won't conflict with those 
of a program already in RAM. 

Sample Screen Dump 



This is an example of a GRAPHICS 
screen dumped to an Epson MX-80 printer 
with the accompanying routine- 



It is fast and easy to use, and will 
work with almost any 80— column printer. 

The routine can be added to your own 
programs. 

STOPPED AT LINE 35 

By typing GOTO 32040, we'll access the 
routine in direct mode. Use GOSUB 
32040 in your programs. 

GOSUB 32040 
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GRAPHICS Screen to Printer 

32000 REM * SR.O SCREEN TO PRINTER * 

32001 REM 

32002 REM "OPEN" CLEARS SCREEN 

32003 REM DO THIS EARLY IN PROGRAM 

32004 REM OSE GOSUB 32010 FOR THIS 

32005 REM 

320 10 POKE 82,0: POKE 83,39 

32020 OPEN #5, 4, O, "S: " : OPEN #7,8,0, "P 

32030 RETURN 

3203 1 REM 

32032 REM USE GOSUB 32040 TO LPRINT 

32033 REM TEXT FROM SCREEN 

32034 REM 

32040 PRINT #7;CHR*<10> 

32050 FOR Y=0 TO 23 

32060 FOR X=0 TO 39 

32070 POSITION X,Y 

32080 GET #5,G 

32090 PUT #7,G 

32100 NEXT X 

32105 PRINT #7 

32110 NEXT Y 

32 120 POSITION 0,0 

32130 RETURN 
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GTIA: 

An Illustrated 

Overview 

Louis and Helen Markoya 



Type in these graphics demonstrations and see the startling displays made 
possible with the GTIA chip. 

Have you ever seen computer-generated graphic displays that 
seem truly 3-D? The ones of landscapes or the ones of molecular 
structures? Have you ever wished you could generate similar 
graphics on your own machine? If so, and you own a 400 or 800, 
with the GTIA chip you're halfway there. 

Modes 9, 10, and 11 are far from ordinary. They are called 
from BASIC by typing GRAPHICS 9, 10, or 11. They all offer the 
same screen resolution, 80 horizontal x 192 vertical, but different 
color selection. 

GRAPHICS 9 offers 16 shades of any of the 16 colors, thus 
raising the machine's color capabilities to 256. GRAPHICS 10 
offers the programmer a choice of 9 of any of the 128 colors 
normally offered by the Atari, and GRAPHICS 11 gives the ability 
to present 16 different colors in any of the 8 luminances (shades). 
For those who had the machine before this new addition, the 
authorized Atari service center nearest you should be stocking 
this part. 

GTIA is Atari's television Interface Chip. It is completely 
compatible with the hardware and software previously available. 
The only problem arises when software relying on the GTIA 
modes is run on a computer without this chip. Something will go 
to the screen, but not the desired effect. 

GTIA is controlled for the most part by ANTIC, a microproc- 
essor dedicated to the screen display. The GTIA processes digital 
commands from ANTIC or the 6502 (in the case of an interrupt) 
into the signal that goes to the television. GTIA also. handles the 
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tasks of color, player/missile graphics, and collision detection. 

GTIA adds powerful capabilities in graphics modes 9, 10, and 
11. All modes are extensions of graphics mode 8 + 16, ANTIC 
Mode 15. The display list remains the same, and the new modes 
are selected by the Priority Register. This Operating System 
Shadow Register, called PRIOR, is located at decimal 623, hex 26E 
Bits 6 and 7 control the GTIA modes. When both are zero, GTIA 
works exactly the same as CTTA. When only bit 6 is set, 
GRAPHICS 9 is called; when only bit 7 is set, GRAPHICS 10 is 
called; and when both bits 6 and 7 are set, GRAPHICS 11 is called. 

GRAPHICS 9 

Setting bit 6 of PRIOR produces GRAPHICS 9, giving 16 lumi- 
nances of one color. ANTIC provides the pixel data, and the back- 
ground register, 712, is used to select your color (POKE 712, Color 
* 16 or SETCOLOR 4, Color,0). Each screen byte is broken in half 
for screen formatting. A display block is four pixels across by one 
pixel down. Each four bits represents 16 color choices. The 
number you choose (0-15) in your COLOR statement equates the 
luminance value you wish to use. Here's a simple BASIC program 
used to demonstrate this: 

10 BRAPHICS 9:REM GRAPHICS MODE 9 (1 

6 SHADES OF ONE COLOR) 
20 SETCOLOR 4,6,0:REM SET BACKGROUND 
REGISTER TO COLOR DESIRED (PURPL 

E) 
30 FOR 1=0 TO 15: REM SET UP VARIABLE 
FOR BOTH COLOR (SHADE) AND POSIT 

ION 
40 COLOR I: REM SHADE OF COLOR 
50 PLOT I, 0s REM PLOT FROM UPPER LEFT 

CORNER 
60 DRAWTO I, 191: REM DRAWTO LOWER LEF 

T CORNER 
70 NEXT I : REM NEXT SHADE AND NEXT LI 

NE 
30 GOTO 80:REM HOLD SCREEN 

The wide choice of luminances or shades available here will 
be particularly useful for shading objects to give the impression of 
bas-relief or the third dimension. With some background in 
perspective and lighting, a person could create scenes with a 
great illusion of depth, realistic or contrived. 
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GRAPHICS 10 

GRAPHICS 10 is called when bit 7 of PRIOR is set to one and bit 6 
to zero. This mode uses all nine of the Atari's color registers found 
at decimal 704-712 (hex 2C0 through 2C8). Any 9 of the 128 colors 
normaUy available to your computer could be used in this mode 
by simply POKEing the desired color (remember, 16 * Color + 
luminance) into each register or POKEing the desired color into 
the player/missile registers (704 through 707), using SETCOLOR 
statements for the playfield and background registers. 

COLOR represents the background and is located at decimal 
register 704, colors (for COLOR statements) 1-8 follow in order 
from 705-712. The big advantage to mode 10 is that any of the 
colors you choose can be changed independently of the others. 
For example, once a scene is created, you could change the color 
of the sky from dark to light blue very easily (FOR I = 128 TO 144: 
POKE 704,1: NEXT I). This will rotate the background color 
smoothly through its eight shades. You may wish to add a loop to 
delay the color change. Playfield or player/missile colors can be 
changed at any time. Also, special effects and animation could be 
achieved by rotating the values in all these registers. 

Program 1 draws a border around the screen in eight colors 
(first register is used for background) and then rotates the colors 
to give a theater marquee effect. To display even more of this 
mode's capabilities, add the following lines: 

185 A=96:REM BETS A VARIABLE FOR THE 

BACKGROUD 
272 A=A+l:POKE 704,A:REM CHANGES BAC 

KGROUND COLOR 
275 IF A=255 THEN A=1:REM ALLOWS ONL 

Y GOOD COLOR VALUES 

These additional lines will rotate the background color 
through all its possibilities while the border is rotating. 

GRAPHICS 11 

Mode 11 operates similarly to mode 9. The difference is that only 
one luminance or shade is used, and a choice of all 16 colors is 
given. Bits 6 and 7 are set to one for this mode. Again, the back- 
ground register is used for the colors, with ANTIC supplying the 
data. COLOR 0-15 relates exactly to the COLOR segment in the 
SETCOLOR command. To initiate this mode, you must choose 
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the luminance or shade you want. The color would be set by your 
COLOR statement (SE. 4,0,0-15 Lum choice). The background is 
always COLOR (black). This mode allows fine color blending to 
produce rainbow effects and therefore a wider color choice for 
picture making. 

Program 2 draws a cross in 16 colors, again using a 1 x 1 
display block, and then draws an ellipse in 16 colors around the 
center of the cross. This program shows the versatility of color use 
in mode 11. No longer are we restricted to horizontal screen archi- 
tecture for extra color with Display List Interrupts. 

GRAPHICS 9 

Program 3 draws a landscape and a simple molecular structure 
floating high above it. This display truly gives the impression of 
depth and shows what can be done using light and shadow in 
Graphics mode 9. 

These demos are only an introductory hint of the spectacular 
effects possible via GTIA. You could add more color to modes 9 
and 11 by using players and missiles or create dramatic effects by 
switching between these modes (or with GRAPHICS 8) by 
POKEing PRIOR with the desired value. 

Program 1. GRAPHICS 10 Demonstration 

10 GRAPHICS 10 

20 POKE 704, 96: REM SETS BACKGROUND ( 

COLOR 0, COLPMO) TO DARK PURPLE 
30 POKE 705, 22: REM SETS COLOR 1, COL 

PM1 TO YELLOW 
40 POKE 706,3B:REM SETS COLOR 2, COL 

PM2 TO YELLOW ORANGE 
50 POKE 707, 54: REM SETS COLOR 3,COLP 

M3 TO ORANGE 
60 POKE 708, 70: REM SETS COLOR 4, COL 

PF0 TO RED 
70 POKE 709,86:REM SETS COLOR 5, COL 

PF1 TO PURPLE 
80 POKE 710,104:REM SETS COLOR 6, CO 

LPF2 TO BLUE 
70 POKE 711, 120: REM SETS COLOR 7, CO 

LPF3 TO BLUE GREEN 
100 POKE 712,180:REM SETS COLOR 8, C 

0LPF4 TO GREEN 
110 FOR 1=1 TO 64:REM SETS UP VARIAB 
LE FOR COLOR AND POSITION 
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120 C=C* <C<8) +1 : COLOR C:REM CHANGES 

COLOR VALUE 
130 PLOT I , I : REM START AT LEFT HAND 

CORNER 
140 DRAWTO 1,191-IsREM DRAWTO BOTTOM 

LEFT CORNER 
150 DRAWTO 79-1 , 191-1 : REM DR. BOTTOM 

RIGHT CORNER 
160 DRAWTO 79-I,I:REM DR. TOP RIGHT 

CORNER 
170 DRAWTO I , I : REM DR. TOP LEFT TO C 

OMPLETE BORDER 
180 NEXT I 
190 Z=PEEK (712) : REM SETS Z EQUAL TO 

THE VALUE IN THE LAST REGISTER 
200 POKE 712, PEEK (71 1 ): REM ROTATES V 

ALUES FROM 711 TO 712 
210 POKE 71 1 , PEEK (710) : REM ROTATES V 

ALUES FROM 710 TO 711 
220 POKE 71 1 , PEEK (709) : REM ROTATES V 

ALUES FROM 709 TO 710 
230 POKE 709, PEEK (708) : REM ROTATES V 

ALUES FROM 70S TO 709 
240 POKE 708, PEEK (707) : REM ROTATES V 

ALUES FROM 707 TO 708 
250 POKE 707, PEEK (706) : REM ROTATES V 

ALUES FROM 706 TO 707 
260 POKE 706, PEEK (705) : REM ROTATES V 

ALUES FROM 705 TO 706 
270 POKE 705, Z: REM ROTATES VALUES FR 

OM 712 TO 705 
280 FOR 1=0 TO 15:NEXT I : REM SLOW DO 

WN ROTATION 
290 GOTO 190:REM START AGAIN 

Program 2. GRAPHICS 1 1 Demonstration 

5 REM GRAPHICS 11 DEMONSTRATION PAGE 

10 A=1:R=26:REM SETS VARIABLES 

20 DIM X (360) , Y (360) : REM ALLOW STORA 

GE SPACE FOR X AND Y COORDINATES 
30 GRAPHICS ll:SETCOLOR 4,0,12:DEG : 

REM SETS GRAPHICS MODE, LUM OF CO 

LORS AND DEGREE MODE FOR ELIPSE 
40 FOR 1=0 TO 15:REM COLOR AND POSIT 

ION VARIABLE 
50 COLOR I 
60 PLOT 31+1 , 0: DRAWTO 31+1,191 
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70 PLOT 0, 86+1 : DRAWTO 79,86+I:REM DR 

AWS CROSS 
80 NEXT I 

90 FOR 1=0 TO 360 STEP 2 
100 X ( I ) =R*COS ( I ) +34 
110 Y ( I > =R*SIN < I ) +95 
120 NEXT I : REM SETS X AND Y VALUES F 

OR PLOTTING ELIPSE 
130 FOR 1=0 TO 360 STEP 2: REM CALLS 

ABOVE VALUES 
140 COLOR A 
150 PLOT X ( I ) +A, Y ( I ) +A: REM PLOT EACH 

COLORS 7 ELIPSE 
160 NEXT I 
170 A=A+1:REM NEXT COLOR AND NEXT EL 

IPSE POSITION 
1S0 IF A=16 THEN 200:REM END IF ALL 

COLORS ARE USED 
190 GOTO 130:REM DRAW NEXT ELIPSE 
200 GOTO 200 

Program 3. GRAPHICS 9 Demonstration 

10 R=16:X=0:C=15 

20 GRAPHICS 9:SETCOLOR 4,13,0 

30 FOR 1=130 TO 191 

40 COLOR C 

50 PLOT 0, Is DRAWTO 79,1 

60 X=X+1:IF X=4 THEN X=0:C=C-1 

7 NEXT I 

80 FOR 1=0 TO 79 STEP 8 

90 COLOR 3:PL0T 59 , 1 30 : DRAWTO 1,191 

10 NEXT I 

110 COLOR l:FOR 1=0 TO 7:PL0T 2,164: 

DRAWTO 21 , 158+1 : NEXT I 
120 COLOR 15:F0R 1=0 TO 3:PLOT 21,14 

0:DRAWTO 2 1 + I , 1 64- I *2 : NE X T I 
130 COLOR 4: FOR 1=0 TO 4: PLOT 20,140 

:DRAWTO 1 7+ I , 1 60+ I : NE X T I 
140 FOR Z=l TO 15 
150 FOR 1=0 TO 360 STEP 6 
160 X=0 . 25*R*C0S ( I ) +35 
170 Y=R*SIN ( I ) +50 
180 COLOR Z 
190 PLOT X,Y 
200 PLOT X+10,Y+17 
210 PLOT X+30,Y-20 
220 PLOT X-2,Y+12 
230 PLOT X+21,Y+70 
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240 NEXT I 

250 R=R-1 

260 NEXT Z 

270 FOR 1=2 TO 4:C0L0R I : PLOT 46,72: 

DRAWTO 51+1 , 106 

280 PLOT 43,62:DRAWT0 39,50+1 

290 PLOT 47,62:DRAWT0 60+1,35 

300 NEXT I 

310 SOTO 310 
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Using SETCOLOR, 
COLOR, and POKE 
to Color Your Screen 



Stephen Levy 



The SETCOLOR and COLOR statements are important to Atari 
graphics, but are often misunderstood by beginners. Here are simple 
examples to help newcomers get the most from their Ataris. 

One confusing aspect of Atari graphics for the beginner is the rela- 
tionship between the COLOR and SETCOLOR statements. Once 
the relationship between these statements is understood, the 
beginner can control the color patterns he or she wishes to create. 

SETCOLOR in Mode 

The SETCOLOR statement is used to define the colors which will 
appear on the screen. In mode the statement will function 
alone. Try entering the following without a line number: 

SETCOLOR 2,0,14 (RETURN) 

The screen should have turned white. But characters on a white 
screen are difficult to read. To remedy this situation, enter the 
following line: 

SETCOLOR 1,0,4 (RETURN) 

The print on the screen is now dark enough to read easily. To try 
one more color change, enter this line exactly as it's printed: 

SE. 4,3,6 (RETURN) 

SE. is the abbreviation for SETCOLOR and may be used to 
enter the statement, even within a program line. As an example, 
try entering this line using the SETCOLOR and GRAPHICS 
abbreviations as follows: 

100 GR. 0:SE.2,8,6 



29 



Now list the line by typing L. (RETURN) (L. is the same as 
LIST). Notice that the computer has printed the entire word for 
SETCOLOR and GRAPHICS. 

Take a closer look at the SETCOLOR statement. The first 
number is the color register, the second number is the hue, and 
the last number is the luminance. There are 16 hues to choose 
from and 8 luminances for each hue. Table 1 summarizes the 
hues. 



Tabid. 


Color Numbers 


Number 


Color* 



1 




Gray 
Gold 


2 
3 
4 




Orange 

Red-Orange 

Pink 


5 




Violet 


6 

7 




Purple-Blue 
Blue 



Number 


Color 


8 

9 


Light Blue 
Blue-Green 


10 
11 


Turquoise 
Green-Blue 


12 


Green 


13 


Yellow-Green 


14 
15 


Orange-Green 
Light Orange 



"Colors may vary on different color TVs. 

The simple examples of the SETCOLOR statement given 
previously used registers 1, 2, and 4. The use of these registers 
varies for the different modes. In mode 0, SETCOLOR 1 controls 
the print color and should have the same hue as register 2, which 
controls the screen color. Register 4 controls the border color for 
mode 0. Table 2 summarizes which color registers are used in 
which modes. It is important to remember that the term color 
register refers to the first number in the SETCOLOR statement, not 
to the first number in the COLOR statement, which is discussed 
below. 

SETCOLOR and COLOR in Modes 3, 5, and 7 

Look at Program 1. Lines 20, 30, and 40 set the color registers 0, 1, 
and 2. But just setting the registers does nothing to put color on 
the screen. A COLOR statement is needed to tell the computer 
which of the colors you wish to use, and something must be 
PLOTted or drawn. 

The numbering can be a bit confusing. Refer to the first two 
columns of Table 2. Notice that to get the color established by the 
SETCOLOR 0,4,6 statement, you must issue the command 
COLOR 1. The COLOR statement number is always one more 
than the first number in the SETCOLOR statement, except for 
SETCOLOR 4, when COLOR would be used. 
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If you haven't already typed in Program 1, do so now. Line 50 
is the COLOR statement that decides which of the three 
SETCOLOR statements will be used when the box is drawn. This 
program will continue to rotate through the three colors endlessly 
until the BREAK key is pressed. Experiment with the program, 
change the colors, and see what happens. 

Changing the Background Color 

Program 2 illustrates how to change the background color in 
modes 3, 5, and 7. SETCOLOR 4 has just been hinted at so far. It 
is the color register that controls the background color in each of 
the four-color modes (3, 5, and 7). 

Line 50 sets the background color. Lines 20, 30, and 40 set the 
colors for the rectangles. The text window keeps you informed 
about the colors. Again, the best way to learn about these colors is 
to experiment. 

POKE Instead of SETCOLOR 

Replace lines 20, 30, 40, and 50 of Program 2 with those lines from 
Program 3. Once this is done, run the program. All that was done 
was to replace each of the SETCOLOR statements with a POKE 
statement. The new lines act exactly the same as the originals. 

Here's how to figure the second number in the POKE state- 
ment: multiply the hue by 16 and add the luminance. For 
example, SETCOLOR 0, 3, 10 would become 3 times 16 (48) plus 
10, for a total of 58 — POKE 708, 58. Table 2 shows which POKE 
location to use for each color register. 

Table 2. SETCOLOR, COLOR, and POKE 

SETCOLOR* COLOR POKE" 1 " MODES 

0,a,b 1 708,c 1-7 

l,a,b 2 709,c 0,1,2,3,5,7 

2,a,b 3 710,c 0-8 

3,a,b - 711, c 1 and 2 

A,a,b 712,c 0-8 

*a = any number from to 15. 
6= zero or any even number from 2 to 14. 
+ c = fl x 16 + b (a times 16 plus b). 

Selecting the Right Colors 

One problem that many new programmers have is selecting the 
best combination of colors. Each time a color is added or changed 
on the screen, it affects the other colors on the screen. Program 4, 
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a simple color editor, is intended to help with this problem. It will 
tell you the number to POKE to get the color you have selected. 
It will also tell you which color number to use in the COLOR 
statement. 

Once the program is typed in and run, you will see one 
number flashing. That is the current register that will be affected 
by the joystick plugged into port one. Moving the joystick 
forward advances the numbers, and pulling back makes the 
numbers decrease. Pressing the fire button will change the 
register that is affected by the joystick. Trial and error will be the 
best teacher here. When you discover a combination of colors you 
believe would fit your application, make a note of it so you can 
use that combination in your own program. 

Only the Beginning 

This article is just an introduction to the world of Atari graphics. 
There is much more to be learned, but with the simple techniques 
shown here, you should be able to make some very impressive 
displays. 

Program 1 . SETCOLOR Example 

10 GRAPHICS 7: COLR=l : POKE 752,1 

20 SETCOLOR 0,4,6 

30 SETCOLOR 1,13,10 

40 SETCOLOR 2,8,4 

50 COLOR COLR 

60 PRINT " {CLEAR} {DOWN} < B SPACESJCOL 

OR ";COLR;"{4 SPACES > SETCOLOR " ; C 

OLR-1 
80 FOR R=10 TO 60 
90 PLOT 50,R:DRAWTO 110, R 
100 NEXT R 
110 COLR=COLR+l : IF COLR=4 THEN COLR= 

1 
120 FOR DELAY=1 TO 250:NEXT DELAY 
130 GOTO 50 



Program 2. Background Colors 

10 GRAPHICS 5:C=0 

20 SETCOLOR 0,3,10:REM COLOR 1 

30 SETCOLOR 1,12,14:REM COLOR : 

40 SETCOLOR 2, 8, 8: REM COLOR 3 

50 B=C:SETCOLOR 4,B,6 

60 FOR COLR=l TO 3 
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70 READ R:COLDR COLR 

80 FOR D=0 TO 7 

90 PLOT R+D,3:DRAWT0 R+D.36 

100 NEXT D:NEXT COLR 

110 PRINT "{CLEAR>SE.0,3,10 

{5 SPACES3 SE. 1 , 12, 1 4 { 4 SPACESJSE 

.2,8,8" 
120 PRINT " COLOR 1<7 SPACESJCOLOR 2 

C7 SPACES3COLOR 3" 
130 TRAP 150:PRINT " {DOWN3BE. 4, ";B; " 

,6"; "(3 SPACES3NEW BACKGROUND CO 

LOR" ; : INPUT C 
140 C=INT(C):IF C<0 OR C>15 THEN C=B 
150 RESTORE : BOTO 50 
160 DATA 9,37,65 

Program 3. POKE Instead of SETCOLOR 

20 POKE 708,58:REM COLOR 1 

30 POKE 709, 206: REM COLOR 2 

40 POKE 710, 136: COLOR 3 

50 B=C:POKE 712,B*16+6 



Program 4. Color Editor 



10 GRAPHICS 3+16 

20 START=PEEK (560)+PEEK(56 1) * 256+4 

30 POKE START-1,71 

40 FOR R=2 TO 4 : POKE START+R , 7 : NEX T 

R 
50 POKE START+21 , 65: POKE START+22,PE 

EK(560):POKE START+23 , PEEK ( 56 1 ) 
60 POKE 87,3:POKE 712,10:B=6 
70 FOR A=l TO 3 
80 COLOR A 
90 FOR R=9 TO 18 

100 PLOT A+B,R:DRAWTO A+10+B,R 
110 NEXT R 
120 B=B+10 
130 NEXT A 
140 POKE 87,2:DIM BL* ( 3 ) : BL*= " 

{3 SPACES}" 
150 POSITION 0,0:PRINT #6; " EOBH 708, 

EUEH 7 10, " 
160 POSITION 0,3:PRINT #6;"iai3" 
170 POSITION 5,3:PRINT #6;"0NE two 

180 CL=3:S0=70:S1=150:S2=206:S4=10 
190 GOSUB 270:GOSUB 300:GOSUB 330:GO 
SUB 340 
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200 IF STRIG<0)=0 THEN CL=CL+1 

210 FDR W=l TO 100:NEXT W 

220 IF CL=4 THEN CL=0 

230 ST=STICK(0):IF ST<>15 THEN POKE 

77, 
240 ON CL+1 GOSUB 250,280,310,340:00 

TO 200 
250 IF ST=14 THEN S0=S0+2: IF S0>255 

THEN S0=0 
260 IF ST=13 THEN S0=S0-2:IF S0<0 TH 

EN S0=254 
270 POSITION 5,1:G0SUB 370:POBITION 

5,1:PRINT #6;S0:POKE 708,B0:RETU 

RN 
280 IF ST=14 THEN S1=S1+2:IF Sl>255 

THEN S1=0 
290 IF ST=13 THEN S1=S1-2:IF SK0 TH 

EN Sl=254 
300 POSITION 10,1:GOSUB 370:POSITION 
10,1:PRINT #6;S1:P0KE 709,S1:RE 

TURN 
310 IF ST=14 THEN S2=S2+2:IF S2>255 

THEN S2=0 
320 IF ST=13 THEN S2=S2-2:IF S2<0 TH 

EN S2=254 
330 POSITION 16,1:G0SUB 370:POSITION 
16,1:PRINT #6;S2:POKE 710,S2:RE 

TURN 
340 IF ST=14 THEN S4=S4+2:IF S4>255 

THEN S4=0 
350 IF ST=13 THEN S4=S4-2:IF S4<0 TH 

EN S4=254 
360 POSITION 0,1:GOSUB 370:POSITION 

0,1:PRINT #6;S4:P0KE 712,S4:RETU 

RN 
370 PRINT #6;BL*:F0R W=l TO 15:NEXT 

W: RETURN 
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Rainbow 
Graphics 



John R. Slaby 

Try these variations and see if you can't make use of this new technique in 
games and graphics. 

Here's how to print out any message in either GRAPHICS 1 or 2 
and get up to seven colors for each character at the same time. 
Each color is limited to one scan line. After typing in the program 
and running it, you will be prompted to choose a graphics mode 
(1 or 2). You will then be asked for the message you want to 
display. 

Capital and lowercase letters will be displayed in their normal 
solid default colors of orange and light green. Inverse capital and 
lowercase letters will be displayed in multicolor and will rotate in 
a curtain effect in opposite directions. The maximum length of the 
message was set at 120 characters/spaces, but this can be altered 
by changing the MSS$ dimension number. The input of the 
message has margins set to stimulate the GRAPHICS 1 or 2 
display so that you don't end up with unintentionally hyphen- 
ated words. 

The REMs in the program describe what is done where, but I 
believe three sections deserve some amplification. First, look at 
the 400 line numbers. The two FOR/NEXT loops store the various 
color values into the page six table locations for use by the DLI 
(the Display List Interrupt) and the vertical blank. Note that the 
color and luminance values increase for each location, thus giving 
a color and brightness change for each scan line. 

If you want, you can easily change these values to give 
different effects. Choosing several colors and alternating them 
will give a barber pole effect. Keeping the same luminance value 
(make the 1*2 just I) gives a sharper contrast between the colors. 
And to get a wider range of colors, change the color number by 
more than one for each scan line (for example, 1*16*1.2). There are 
a great number of possibilities you can play with to get the effect 
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you want; and since there are two tables, the two effects can be 
drastically different. 

The vertical blank routine is contained in the DATA state- 
ments of the 300 lines. Its function is to rotate the two color tables 
in different directions to give the rolling curtain effect. If you want 
a static color display, you can eliminate the vertical blank by 
removing line 520 and adding POKE 54286, 192 to line 510. 

Another easy variation is to change the rotation rate. The 
number 4 after the number 201 in line 320 controls the rate of 
change. Decrease this number to increase the rotation rate; 
increase it to slow it down. Please note that the maximum number 
is 255. If you exceed this number, you will register an error, which 
will be caught by the TRAP (line 50); this process will start the 
program over again and again if you don't correct the bad POKE 
value. 

Multicolors with DLIs 

The DLI is the key to the multicolors. In Space Invaders the DLIs are 
used to change the color of the invaders for each mode line. For 
GRAPHICS and 1, the mode line consists of 8 scan lines, and for 
GRAPHICS 2, 16 scan lines. Normally, if you want to change 
colors for a mode line, you load a color value into the A, X, or Y 
registers, wait for horizontal sync (WSYNC), and then load the 
registers into the desired color registers during the horizontal 
blank. The problem is that the DLI is for the entire 8 or 16 scan 
lines, not each line. 

Therefore, changing the color register after the horizontal 
blank results in your not knowing when the color change will take 
effect (for example, halfway across the scan line). One method to 
get around this would be to accurately count the 6502's cycles. 
When I first looked at the problem, this seemed the only way out; 
but not feeling that ambitious, I put this project on hold until I 
came up with an easier way. 

The key is the WSYNC. For a meaningful display to exist on 
the TV screen, the WSYNC must occur every scan line, not every 
mode line. Thus, once you get control via the DLI, you keep it for 
eight WSYNCs and change the color registers during each scan 
line's horizontal blank. In theory, you can get eight colors for each 
character; but since the first line and the last lines are usually 
blank, six colors is what you actually get. If you want to modify 
the DLI, you could get 12 colors for GRAPHICS 2. 

The one drawback of this method: if it is used for every mode 
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line, it could tie up the 6502 processor for a good part of the avail- 
able time. The majority of the remaining time would be during 
vertical blank. This would thus restrict the number of additional 
calculations, etc., you might want to do. This doesn't mean the 
technique is useless; it can be used for an eye-catching title page 
or used sparingly for a graphics display. It can also be used in 
games. 

I believe this method is used in Demon Attackby Imagic for 
the Atari VCS. This game appears to change even the color of the 
player. You can also do this with my program by loading the 
player color register instead of the playfield. Overall, greater study 
of this method should allow programmers more latitude in 
creating striking visual effects. 

The DLI and the vertical blank are not directly relocatable, 
but if you have any machine language capabilities, you should be 
able to modify them with little effort. 

Rainbow Graphics 

30 rem c raniai Gumns^ meecb 

40 DIM MSS*(120) 

50 TRAP 1000 

60 ? "WEEO B EEEBBBa M frrgra ? 1 EE 2";: 

INPUT A: IF A<>1 AND A< >2 THEN 60 
70 GOSUB 100:GRAPHICS A+16 
80 DL=PEEK (560) +256*PEEK (561 ) +6 
90 FOR 1=0 TO 6:P0KE DL+I , 133+fi: NEX 

T IrBOTO 200 

100 rem meghjc eee be ch de cma= saaaa 

EH={8 SPACES > HHEEEQTJO 
110 POKE 82,10:POKE 83,29:2 
120 REM IEEED IZl=fcS.-f:Ma 
130 7 :? "WGmi EH IZI=fcfcT:THa ?" : ? "U35 

ATARI M:LiJ^:^-l=. <:3 SPACES>HEE HUBS 

E [HjTJBSE . <3 SPACES} CAPITAL EE tl 

ECT=S. " 
140 INPUT MSS*:RETURN 
200 REM L EBEHsl DLI 
210 FOR 1=0 TO 42:READ B:POKE 1553+ 

I , B: NEXT I 
220 DATA 72,138,72,152,72,162,0,141 

, 10,212 
230 DATA 189,1,6,188,9,6,141,24,208 

, 140, 25, 208 
240 DATA 232,173,0,6,201,1,144,3,14 

1,10,212 
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DATA 224,6,144,226,104,168,104, 

170, 104, 64 

REM LH3DDO D BH33E V HB EBH Mi BEE 

□5 

FOR 1=0 TO 73:READ C:POKE 1599+ 

I,C:NEXT I:POKE 1596,0 

DATA 72,138,72,173,60,6,201,4,1 

44, 55, 162, 7 

DATA 173,8,6,141,61,6,173,9,6,1 

41 ,62, 6 

DATA 202,189,1,6,157,2,6 

DATA 224,0,208,245,173,61,6 

DATA 141,1,6,162,0,189,10,6,157 

,9,6, 232, 224, 7, 208, 245, 173, 62, 6 

, 141 , 16,6, 169, 

DATA 141,60,6,238,60,6,104,170, 

104, 76, 98, 228 

REM CtmEE UB5EXL & # I*<:i=fc1 HUE CSE 

BH 

FOR 1=0 TO 7:P0KE 1537+1,(8+1)* 

16+I*2:NEXT I 

420 FOR 1=0 TO 7:P0KE 1545+1,(1+1)* 
16+I*2:NEXT I 
POKE 1536, A 
POSITION 0,0:? #6;" " 
REM ECnnEO DLI AND DVVBLK 
POKE 512,17:P0KE 513,6 
POKE 548, 63: POKE 549, 6: POKE 542 
86, 192 

POSITION 1,2:? #6;MSSt 
SOTO 610 
TRAP 40000: GOTO 50 
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Colors yPage 
Flipping 



Robert W. Myers 



"Colors fry Page Flipping" allows you to mix colors to produce new ones. 

Have you ever wanted more colors than are provided on your 
Atari? This program uses four colors in Graphics mode 2, and 
mixes them two at a time to produce a total of ten different colors. 

Blending Colors 

All this color, like almost everything on the TV screen, is really an 
illusion. The blending of colors takes place because the displays 
are changed back and forth so fast that our eyes cannot keep up 
with the changes. Therefore, we see only one color, which is a 
mixture of the colors in all the different displays. You can mix 
more than two colors at a time, but as the number of displays 
increases, the amount of flicker on the screen increases too. The 
practical limit is four displays mixing at once. 

This mixing is done by using multiple screen RAM areas and 
changing the Load Memory Scan (LMS) bytes in the display list 
during the Vertical Blank Interrupt (VBI). I realize that this sounds 
like a very complicated thing to do, but it's not. 

Understanding the Display List 

The Display List is a program for the ANTIC chip, the microproc- 
essor that controls the TV screen so that the 6502 is free to spend 
more of its time doing computational chores. The Display List is 
in RAM, and the first byte of the Display List can be found at 
PEEK (560) + 256*PEEK(561). 

Usually you will find that the first three bytes are the code 
that causes the black area at the top of the screen (to insure that 
nothing is lost due to overscan of the TV). The next byte is the 
LMS byte which sets the D6 bit (64 decimal). Added to this 64 is 
the ANTIC graphics mode number, which is given in the table. 

The LMS is a three-byte instruction. The 64 + mode # is the 
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first byte; the second and third bytes are the address of the begin- 
ning of screen RAM. 

This address is what we are interested in here. Rapidly 
changing it allows us to switch from one picture to another and 
back. We cannot do this address swapping from BASIC; it is far 
too slow. The LMS bytes are changed by a short machine 
language routine that is run 60 times a second while the picture is 
blanked out as it returns to the top of the screen to begin the next 
frame. This is Vertical Blank Interrupt . 

The routine loads the LMS bytes with the address of the first 
(normal) screen RAM, then it does an exclusive-OR with one of 
the memory locations. This causes the memory location to toggle 
between and 1 . This or 1 is used to determine whether a 
branch will be taken or not. If the branch is taken, the next 
instruction is JMP $E462, which puts the interrupt back in normal 
operation. If the branch is not taken, the LMS bytes are changed 
to the address of the other (alternate) screen RAM. Then comes 
theJMP$E462. 

Using VBI 

The VBI is amazingly easy to use. All you do is write your routine 
that is to run during the interrupt. Then you write a machine 
language program that puts the high byte of your routine's 
address into the X-register, the low byte into the Y-register, and 
the number 7 into the accumulator. Finally, you JSR $E45C. This 
second machine language program is at lines 160, 170, and 180 of 
my program. 

After setting up your VBI to change the LMS, you print or 
plot and move one set of your screen RAM to the other (alternate) 
location that you have specified to the LMS. This technique 
should be usable with any multicolor display mode or any combi- 
nation of display modes, not only to mix colors, but also to mix 
text and graphics, to display mixed resolutions, etc. 
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Mixing Colors 



1 REM *************************** 

2 REM *<25 SPACES)! 

3 REM * MIXING COLORS TO MAKE * 

4 REM *{4 SPACESJAN ATARI RAINBOW 
{5 SPACES)* 

5 REM *{25 SPACES>* 

6 REM *************************** 

9 REM 

10 PRINT CHR* ( 125) : GRAPHICS 2+16:BRE 
AK=1000 

15 REM MACHINE LANGUAGE TO BE RUN DU 
RING VERTICAL BLANK{9 SPACES>INTE 
RRUPT 
20 FOR 1=0 TO 36:READ A:POKE 1536+1, 

A:NEXT I 
30 DATA 173,39,6,141,49,6,173,40,6,1 

41, 50, 6, 173, 51, 6, 73, 1, 141,51 
40 DATA 6,240,12,173,41,6,141,49,6,1 

73, 42, 6, 141, 50, 6, 76, 98, 228 
45 REM FIND DISPLAY LIST IN RAM 
50 DLIST=PEEK (560) +256*PEEK (561 ) 
55 REM MODIFY MACHINE LANGUAGE PROGR 
AM BY POKEING IN ADDRESSES FROM 
DISPLAY LIST 
60 BYTE=DLIST+4: GOSUB BREAK:REM LOAD 

MEMORY SCAN LOW BYTE 
70 POKE 1540, LOW: POKE 1562, LOW 
80 POKE 1541 , HIGH: POKE 1563, HIGH 
90 BYTE=DLIST+5: GOSUB BREAK:REM LOAD 

MEMORY SCAN HIGH BYTE 
100 POKE 1546, LOW: POKE 1568, LOW 
110 POKE 1547, HIGH: POKE 1569, HIGH 
120 BYTE=DLIST+20: GOSUB BREAK:REM NO 

RMAL SCREEN RAM 
130 POKE 1576, HIGH: POKE 1575, LOW 
140 BYTE=DLIST-250: GOSUB BREAK:REM A 

LTERNATE SCREEN RAM 
150 POKE 1578, HIGH: POKE 1577, LOW 
155 REM MACHINE LANGUAGE PROGRAM TO 
INITIALIZE VERTICAL BANK 
<4 SPACES) INTERRUPT 
160 FOR 1=0 TO 10:READ A:POKE 1600+1 

,A:NEXT I 
170 DATA 104,162,6,160,0,169,7,32,92 

, 228, 96 
180 X=USR(1600) 
220 REM DRAW FIRST SCREEN 
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230 BYTE=DLIST-250: GOBUB BREAK 

235 POKE B8,LQW:POKE 89,HIBH 

240 POSITION 0,4 

250 PRINT #6; "ATARI co ^JJl l ER Club" 

260 PRINT #6 

270 PRINT #6;"<:4 SPACESJEQ WARLottE 

■ I 

280 BYTE=DLIST+20:GOSUB BREAK 

290 POKE 88,LOW:POKE B9,HIGH 

305 REM SETCOLORS AND DRAW SECOND SC 
REEN 

312 SETCOLOR 0,12,6 

313 SETCOLOR 1,4,6 

314 SETCOLOR 2,15,8 

315 SETCOLOR 3,8,6 
320 POSITION 0,4 

330 PRINT #6; "AtEEi SDHr-IUeS El [IE" 

340 PRINT #6 

350 PRINT #6;"C4 SPACES>[3a HIArllEtHI 

II 

359 REM HOLD IMAGE ON SCREEN 

360 GOTO 360 

999 REM SUBROUTINE TO BREAK DOWN NUM 
BER INTO HIGH AND LOW BYTES 

1000 HIGH=INT(BYTE/256) 
1010 LOW=BYTE-HIGH*256 
1020 RETURN 
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A Fill-In on 
XIO(FILL) 



Gretchen Schabtach 



This tutorial article presents several interesting extensions for the 
XIO(FILL) program on page 54 of the Atari BASIC Reference Manual. 

Your Atari readily fills line drawings of figures with color using a 
special application of the XIO statement. However, the example in 
the Atari BASIC Reference Manual (page 54) can be expanded to 
demonstrate the strengths and limitations of this application. A 
critical point about XIO filling is that filling stops when a pixel 
previously filled with color is encountered. Thus, interesting 
effects occur when the Atari is commanded to fill overlapping 
figures with color. 

To get the most from the following short programs, begin by 
running the demonstration program on page 54 of the BASIC 
Reference Manual. Then run Program 1. Program 1 generates three 
rectangles, randomly positioned, with random proportions, and 
fills them from top to bottom and left to right with three different 
colors. Observe what happens when the figures overlap. 

Moving line by line, from top to bottom and left to right, the 
fill stops when a colored pixel is encountered. Thus, when the 
program generates two overlapping rectangles, filling of the 
second rectangle stops whenever the first filled rectangle is 
encountered — and does not resume even if the second rectangle 
extends to the right beyond the first rectangle. 

With a few modifications, Program 1 is not only illuminating 
with regard to the XIO(FILL) function, but also much more inter- 
esting. First, randomly change the colors to be used in filling. 
Second, generate rectangles continuously. To do this, make the 
following changes: 

20 N = INT(RND(0)*3 + 1) 
160 (i.e., delete) 
170 GOTO 20 
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After you've modified the program as specified above, run it 
and admire the changes. Now, add a little music to your life. This 
is easily accomplished by adding the following statements: 

81 1 = INT(RND(0)*256) 
82 SOUND 1,1,10,4 
84 SOUND 2,255-1,10,4 

Try this, and then delete line 150. This will speed things up a little 
and make them even more interesting. 

Finally, black backgrounds can become tiresome. To 
randomly change the background color, type in the following: 

11 REM : CHANGE BACKGROUND 

12 B = INT(RND(0)*16) 

13 SETCOLOR 4,B,2 

166 REM : CHANGE BACKGRD SO GOTO 12 
170 GOTO 12 

Your final program listing should look like that shown in 
Program 2. 

There are further simple and interesting modifications. For 
example, vary the constants in statements which include random 
number generators — those containing (RND(O)); or delete + 16 in 
line 10 and provide yourself with a text window in which you can 
write commentary on what the viewer sees; or change the charac- 
teristics of the shapes generated to be filled with color (lines 40 
through 80). Your imagination will suggest other possibilities. 

Program 1 . XIO Example 1 

1 REM : DEMO OF XIO FILLING 

2 REM : SUPPRESS WINDOW IN GR.7 
10 GRAPHICS 7+16 

15 REM : ESTABLISH 3 FILL COLORS 

20 FOR N=l TO 3 STEP 1 

30 COLOR N 

35 REM : GENERATE FIGURE TO FILL 

40 X1 = INT (RND (0) *80> 

50 Y1=INT (RND (0) *48) 

60 X2=X 1+INT (RND (0) *80) 

70 Y2=Y1+INT (RND (0) *4S) 

80 IF X1=X2 OR Y1=Y2 THEN 40 

90 PLOT X2,Y2 

100 DRAWTO X2,Y1 

110 DRAWTO XI, Yl 

115 REM : FILL FIGURE 

120 POSITION X 1 , Y2 
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130 POKE 765, N 

140 XIO 18, #6, 0, 0, "S: " 

150 FOR W=l TO 400: NEXT W 

155 REM : CHANGE COLOR FOR NEXT FIBU 

RE 

160 NEXT N 

165 REM :GENERATE NEW FIGORE 

170 GOTO 10 



Program 2. XIO Example 2 



1 REM : DEMO OF XIO FILLING #2 
5 REM : SUPPRESS WINDOW IN GR.7 
10 GRAPHICS 7+16 
1 1 REM : CHANGE BACKGROUND 

12 B=INT (RND (0) * 1 6 ) 

13 SETCOLOR 4, B, 2 

15 REM : ESTABLISH 3 FILL COLORS 
20 N=INT (RND (0 ) *3+ 1 ) 
30 COLOR N 

35 REM : GENERATE FIGURE TO FILL 
40 X 1=INT (RND (0) *30) 
50 Y 1=INT ( RND ( 0) *4S) 
60 X2=X 1+INT (RND (0) *80) 
70 Y2 = Y 1 +1 NT ( RND (0) *48) 
80 IF X1=X2 OR Y1=Y2 THEN 40 
8 1 1 = 1 NT (RND (0) *256) 
82 SOUND 1,1,10,4 
84 SOUND 2,255-1,10,4 
90 PLOT X2,Y2 
100 DRAWTO X2,Y1 
110 DRAWTO X 1 , Yl 
115 REM : FILL FIGURE 
120 POSITION XI, Y2 
130 POKE 765, N 
140 XIO 18,96,0, 0, "S: " 

155 REM : CHANGE COLOR FOR NEXT FIGU 
RE 

165 REM :GENERATE NEW FIGURE 

166 REM :CHANGE BACKGRD SO GOTO 12 
170 GOTO 12 
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Redefining 
Character Sets 
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Character 
Generation 



Charles Brannon 



The ability to redefine characters is a very powerful feature of the Atari. 
This discussion explains how it is done. 

Atari computers are among the few that possess a very powerful 
feature — the ability to redefine the character set. The character set 
is the group of 255 alphanumeric characters that can appear on the 
screen. It comprises the upper- and lowercase alphabet, the 
numbers, special symbols, and punctuation. Also included in the 
Atari character set are 29 "control graphics" characters. When the 
CTRL key is held down and a letter of the alphabet is typed, the 
corresponding graphics symbol is displayed. These symbols are 
much like those found on the PET/CBM. Unlike the PET, however, 
the Atari can redefine any of these characters. This allows custom 
graphics, user-defined special symbols (like pi, theta, or foreign 
language alphabets), and logos. 

There is no built-in command to perform the changes; it has 
to be done the hard way with PEEK and POKE. These are 
commands to look at and modify memory, respectively. First of 
all, you must understand how the Atari stores and displays these 
characters. It is beneficial if you know how to work with binary 
numbers, but it is not a prerequisite. 

Start out by designing your characters. Fill in the blocks on an 
8x8 grid; each block will represent a pixel (picture element, or 
screen dot). Observe the A in Figure 1. Notice the heavy vertical 
lines. A television screen will display horizontal lines brighter 
than vertical lines, so it is necessaiy to have two vertical lines in 
order for it to be clearly visible (this also prevents "artifacting"). 
Therefore, the pi in Figure 2 may be hard to see unless enlarged in 
mode 1 or 2. 

After you have designed your characters, you have to convert 
them to the numbers that a computer loves. Each row in your grid 
represents a binary byte. A filled-in block represents a 1 and a 
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blank block means 0. Hence, the top row of the A is 00011000 or 
24 decimal. Now write the bytes for each row. If you do not work 
with binary numbers, you can convert each line in the following 



manner: 



1. Notice the numbers above each column. They are the 
powers of two. 

2. If a block is filled in, take a number above it and add it to a 
"Sum." Sum up all the blocks in the row (for example, the 
fourth line of the pi would be 128 + 32 + 4 = 164). 

3. Do this for all eight rows. 



Figure 1. Character A 

1 

2631 

84268421 




Figure 2. Character Pi 

1 
2631 



84268421 




B 



it' ni 



Next, assemble the numbers into DATA statements. The 
numbers for pi would then look like this: 

1000 DATA 0,1,126,164,36,36,36,36 

Finally, you have your numbers. Now all you have to do is 
replace the numbers of the character you want to redefine with 
your numbers. Unfortunately this table is stored in Read Only 
Memory (ROM), so it cannot be altered. The solution is to copy 
this table into Random Access Memory (RAM), which can be 
changed, and then tell the computer where you have moved the 
characters. 

First, we have to find a safe place in RAM to hold the char- 
acter set table. One solution is to place the character set at the top 
of memory. We can use memory location 106, which holds the 
number of the topmost page (a "page" is 256 bytes) of memory. 
On a 32K machine, this is usually 128 (128*256 = 32768 = 32*1024). 
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We would need to store our character set four pages beneath this 
limit, since we need 1024 bytes, and 4*256 = 1024. 

However, there is a complication. The operating system has 
also decided to use the top of memory to store information 
needed to display the video screen. All we need to do is store our 
character set a little further back in memory, behind the screen. 
Here's the tricky part. Exactly how much we need to "step back" 
depends on which graphics screen is used, since different modes 
use varying amounts of memory (from 272 bytes in GRAPHICS 3, 
to nearly 8,000 bytes in GRAPHICS 8). Just remember to step back 
far enough to get past the screen, and make the "step size" a 
multiple of four. 

So to find the place to store a character set with graphics 
modes 0,1,2,3,4 and 5, step back four pages to get past the screen, 
then step back four more to hold your character set, for a total of 
eight. GRAPHICS 6 would require 12, GRAPHICS 7 would 
require 20, and you would need to step back a whopping 36 pages 
to fit your character set beneath a GRAPHICS 8 display. 

A sample program to redefine the character set (assuming 
you've set up your DATA statements) might start out like this: 

10 CHBAS=57344 

20 CHSET= <PEEK ( 106) -8) *256 

30 FOR 1=0 TO 1023 

40 POKE CHSET+I , PEEK (CHBAS+I) 

50 NEXT I 

These lines transfer the ROM-based character set to RAM, where 
they can be modified. The transfer (in BASIC) takes a long time to 
execute, about 15 seconds. You don't need to copy the character 
set if you want to redefine the entire character set, or don't need 
any characters from the default character set. And unless you go 
into a higher graphics mode that might wipe out the character set, 
you don't need to execute these lines more than once. The data 
will still be there, even when you RUN the program again. 

The next line: 
60 POKE 756,CHSET/256 

tells ANTIC (the Atari's video microprocessor) where you have 
placed your character set. This location normally contains 224 
(224*256 = 57344, which is the address in ROM of the default 
character set). 

Now that the table is in RAM, we can find the place in it for 
the new numbers. Look up the character you want to replace 
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(Table 9.6-Intemal Character Set, in the Atari BASIC Reference 
Manual). Note that this number is not the ATASCII value of the 
character. Include this number preceding your eight bytes in the 
DATA statements. For our pi: 

1000 DATA 32,0,1,126,164,36,36,36,36 

The 32 is the internal code for the @ symbol. Anytime you press 
the @ key, you may be surprised to see pi. 

A few more lines, and the program is finished: 

70 READ NCHR:REM NUMBER OF CHARACTER 

S TO BE CUSTOMIZED 
80 FOR 1=1 TO NCHAR 
90 READ RPLC:REM INTERNAL VALUE OF C 

HARACTER TO BE REPLACED 
100 FOR 3=0 TO 7 
110 READ A 

120 POKE CHSET+8*RPLC+J, A 
130 NEXT J 
140 NEXT I 

150 REM LINE 170 IS OPTIONAL 
160 REM IT JUST DISPLAYS ALL THE CHA 

RACTERS 
170 FOR 1=0 TO 255:PRINT CHR*(27);CH 

R* < I > ; : NEXT I 
180 END 

998 REM NUMBER OF CHARACTERS 

999 DATA 1 

A few program notes: 

1. You can use multiple statements per line; delete REMs if you 
like. 

2. This program should be appropriately renumbered, and 
RETURN added if you want to use it as a subroutine. 

3. This is not the only way to customize the character set. See the 
other articles in this book for more ideas. 

The complete program (less DATA statements) and a utility 
program that lets you look at characters wrap up this article. 
Study them, puzzle them out, and have fun with Atari's custom 
characters! 

Program 1 . Redefining Characters 

10 CHBAS=57344 

20 CHSET= (PEEK ( 106) -8) *256 

30 FOR 1=0 TO 1023 
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40 POKE CHSET+I , PEEK (CHBAS+I ) 

50 NEXT I 

60 POKE 756, CHSET/256 

70 READ NCHR:REM NUMBER OF CHARACTER 

S TO BE CUSTOMIZED 
80 FOR 1=1 TO NCHAR 
70 READ RPLC:REM INTERNAL VALUE OF C 

HARACTER TO BE REPLACED 
100 FOR 3=0 TO 7 
110 READ A 

120 POKE CHSET+B*RPLC+J , A 
130 NEXT J 
140 NEXT I 

150 REM LINE 170 IS OPTIONAL 
160 REM IT JUST DISPLAYS ALL THE CHA 

RACTERS 
170 FOR 1=0 TO 255:PRINT CHR$(27);CH 

R* ( I > ; : NEXT I 
180 END 

998 REM NUMBER OF CHARACTERS 

999 DATA 1 

1000 DATA 32,0,1,126,164,36,36,36,36 



Program 2. View Characters 



10 GRAPHICS 4 

20 SCR=PEEK (88) +256*PEEK (89) 

30 PRINT " <CLEAR>CHARACTER #? (0-127 

) "; 
40 INPUT CHR 

50 IF CHR<0 OR CHRM27 THEN 30 
60 PRINT #6; CHR* ( 125) 
70 FOR 1=0 TO 7 
80 POKE SCR+4+10*I , PEEK (57344+CHR*8+ 

I ) 
90 NEXT I 
100 GOTO 30 
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Custom Characters 



Charles Delp 



Custom character graphics is an easy way to program game animation, 
but sometimes it results in uneven motion. Smoother animation can be 
achieved by using custom characters to create the fixed play field, and then 
using player I missile graphics to animate the players. The three programs 
here show you how. 

One of the easiest ways to put colorful, high-resolution playfields 
or special symbols on the screen is with character graphics, 
employing custom characters. 

One of the major drawbacks of using character graphics to 
animate a game is that players can move only in large, character- 
sized jumps. When smoother action is desired, a better solution is 
to draw the fixed playfields using custom characters and then 
animate the players using player/missile graphics. 

The advantages of using character graphics rather than 
bitmapped graphics to draw fixed playfields are: 

1. Much less memory is required to achieve the same resolution. 

2. More colors are available. 

3. Less time is required to draw to screen memory 

4. Color fill is faster and easier. 

The major disadvantage of using character graphics to draw 
fixed playfields is that only two colors (character color and back- 
ground color) are available within any one character. The table 
shows the resolution, memory requirements, and colors available 
for various Atari BASIC character and bitmapped graphics 
modes. 

How Characters Are Defined 

Atari characters are defined by 64 pixels arranged in eight 
columns by eight rows. From right to left, the values of the 
columns are 1, 2, 4, 8, 16, 32, 64, and 128. If a particular pixel is 
turned on, the value of that column is added to the row total; if 
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the pixel is turned off, zero is added to the row total. The total 
value of all the "on" pixels in a row forms a byte of data which 
defines that row. Each of the eight rows is defined by a byte of 
data, for a total of eight bytes per character. (See Figure 1 for a 
specific example.) Note how the row bytes are arranged in 
memory from the character start address (CHADD). 



Atari Display Mode Facts 

Graphics Graphics Resolution 
Mode Type H x V 


Colors 

Available 

(Including 

Background) 

2 

5 
5 
4 
4 
2 


Bytes of 

Memory/ 

Screen 


Character 320 x 192 

1 Character 160 x 192 

2 Character 160 x 96 
5 Bitmapped 80 x 48 

7 Bitmapped 160 x 96 

8 Bitmapped 320 x 192 


960 
480 
240 
960 
3840 
7680 


Character Color Information 

Character Type 
Uppercase alphabetical 
Lowercase alphabetical 
Inverse uppercase alphabetical 
Inverse lowercase alphabetical 
Numbers, punctuation marks, etc. 
Inverse numbers, punctuation marks, etc. 


Color Register 

1 

2 
3 


2 



Character Editor 

Program 1 is a character editor utility which will be a help in 
developing the DATA statements required to define each char- 
acter. Draw the character using the joystick. Erase errors by 
holding the trigger button while drawing over the error. Press C 
(Clear character) at any time to clear the screen for another char- 
acter. Press D (Demonstrate character) to see the character in all 
three of the character graphics modes, as well as the DATA state- 
ment required to produce the character. Press P (Print data) to 
print a hard copy of the character DATA statement. Press E (Enter 
data) to enter the character data as a program line beginning at 
line 9000. When all characters have been entered, typing LIST 
"D:CHAR", 9000, 9999 will save the data to disk or LIST "C", 
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9000,9999, to cassette. The data may be merged into your graphics 
program using the ENTER command (see Chapter 5, Atari BASIC 
Reference Manual). 

Figure 1 . Typical Custom Character 



Row Byte 
Memory 
Location 
CHADD 
CHADD +1 
CHADD + 2 
CHADD +3 
CHADD + 4 
CHADD +5 
CHADD +6 
CHADD + 7 



Rows 
Byte 1 = 24 
Byte 2 = 36 
Byte 3 = 66 
Byte 4 = 255 
Byte 5 = 
Byte 6 = 27 
Byte 7 = 24 
Byte 8 = 64 



Column Values 





3 


en rH oo «tf 


CM 


rH 


n 








P P 






■ 


1 


w 








jtmz 


■I 






jr 






. ■ 


m 







8 + 16 

4 + 32 

2 + 64 

1 + 2 + 4 + 8 + 16 + 32 + 64 + 128 



1 + 2 + 8 + 16 

8 + 16 

64 



Locating the Custom Character Set in Memory 

First, look at the memory map in Figure 2. The standard Atari 
character set is located in ROM beginning at address 57344 
(CHORG). The location and size of screen memory including the 
display list will depend on how much RAM is installed in your 
computer and which graphics mode is called by your program. 
The new character set must be defined and stored in RAM in a 
location which does not interfere with screen memory, the display 
list, the player/missile display memory, or the BASIC program. 
The procedure described below and illustrated in Figure 2 will 
keep everything nicely separated. 

1 . Find MEMTOP on your computer by entering the 
following line: PRINT PEEK (106)*256. 
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2. Decide whether your program using the custom characters 
will be written in graphics mode 0, 1, or 2. For your informa- 
tion, the bottom of screen memory including display list, will 
be located at MEMTOP - X 

where X = 992 for graphics mode 
X = 674 for graphics mode 1 
X = 424 for graphics mode 2 

3. The starting address of the custom character set, CHBASE, 
must be located on a IK memory boundary so CHBASE 
should start 2K below MEMTOP (IK for screen memory, IK 
for the character set); therefore, CHBASE = MEMTOP - 2048. 

4. If player/missile graphics are to be used, PMBASE must be 
located on a 2K boundary (for single line resolution), so P/M 
Base should start 4K below MEMTOP (IK for screen 
memory, IK for the character set, 2K for P/M Display Area); 
therefore, PM BASE = MEMTOP - 4096. 

Figure 2. Memory Map 



STANDARD ATARI 
CHARACTER SET 
(128 CHARACTERS) 



CHORG + 1024 



SCREEN MEMORY 

INCLUDING DISPLAY 

LIST 

X = 992FORGR. 

X = 674FORGR. 1 

X = 424FORGR. 2 



UNUSED 



ROOM FOR 128 

CUSTOM 

CHARACTERS 



PLAYER/MISSILE 
DISPLAY AREA 



CHORG = 57344 



MEMTOP = PEEK(106)*256 



BOTTOM OF SCREEN 
MEMORY (MEMTOP- X) 



CHBASE = MEMTOP - 2048 



PMBASE = MEMTOP - 4096 
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Developing a Custom Character Set 

Normally a character set consists of 128 different characters in 
graphics mode 0, and 64 different characters in graphics modes 1 
and 2. However, a character set need not be full and may contain 
only as many characters as needed to meet the requirements of 
your program. The first character in the set must always be a 
space (DATA statement filled with zeros). 

Program 2 demonstrates how to set up and use a custom 
character set containing only custom characters. To keep things 
simple, the set contains only eight characters. 
Lines 10-30 Initialize and find CHBASE 
Lines 50-70 Clear space in memory for the custom character 
set 

Lines 90-130 POKE the new characters into memory begin- 
ning at CHBASE 

Lines 200-280 Contain the character data 
Lines 300-360 Print the characters on the screen 

The simplest way to print the custom characters to the screen 
is with the PRINT #6; statement; however, the custom characters 
are not shown on the keyboard, so the following correlation must 
be performed: 

1. Assign a character number to each of your custom charac- 
ters, beginning with zero for your first character, number 1 
for your second character, number 2 for your third character, 
etc. 

2. Correlate your character numbers, one for one, with the 
Atari internal character set numbers in Table 9.6 (page 55 of 
the Atari BASIC Reference Manual). 

3. To print your custom character, enter the corresponding 
Atari character in your PRINT statement. For example, the 
Atari character number 4 is the dollar sign ($). PRINT #6; "$" 
will print your custom character number 4 on the screen. 

It is necessary to skip the third character of your set. (See line 
220 of Program 2.) The third character corresponds to the Atari 
internal character quotation mark ("). It is not possible to print a 
quotation mark to screen using the statement PRINT #6; and 
placing the quotation mark between quotation marks (" " "). 

The color of a character is selected by its form in the PRINT 
statement. If the custom character corresponds to an Atari alpha- 
betical letter, the color is determined by entering the corre- 
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sponding Atari letter in the PRINT statement in upper- or 
lowercase, or inverse upper- or lowercase. Four colors are avail- 
able for characters corresponding to Atari alphabetical letters. 

If the custom character corresponds to an Atari number, 
punctuation mark, etc., the color is determined by entering the 
corresponding Atari number in the PRINT statement in standard 
or inverse video. The third and fourth colors for numbers and 
punctuation can be obtained by using control characters (see 
"Discovering 'Hidden' Graphics" in Chapter 1). 

The PRINT #6; method of putting custom characters on the 
screen has some serious drawbacks. The method used in Program 
3 may not be as easy to understand, but has fewer limitations, 
particularly for drawing entire playfields. 

Mixing Standard and Custom Characters 

In addition to colorful playfields, most games print numbers and 
specific letters on the screen to display such things as score, time, 
fuel, hits, etc. The standard Atari character set already contains 
these characters, so it would be pointless to develop custom char- 
acters for this purpose. The solution is to develop a custom char- 
acter set containing all the necessary standard numbers and 
letters, but to replace all unneeded standard characters with 
custom characters. 

The procedure for developing a mixed character set is 
described below: 

Note: Refer to Table 9.6 in the Atari BASIC 
Reference Manual, page 55. 

1. Determine which standard characters will be needed in 
your program. 

2. Form a string variable which contains the unneeded stand- 
ard characters. The string may include any unneeded char- 
acters with and 127 for GRAPHICS 0, or between and 63 
for GRAPHICS 1 and 2. The only exception in either case is 
the quotation mark, for reasons explained before. 

3. Copy the standard character set from CHORG (57344) to 
CHBASE by PEEK and POKE statements. 

4. Modify the unneeded standard characters into custom 
characters by POKEing custom character data into the char- 
acter address (CHADD) of each character in the string. (See 
Program 3 for specific details of the procedure.) 
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Printing Complete Playf ields 

Program 2 places the custom characters onscreen with PRINT #6; 
statements. A better, though more difficult, method is plotting the 
character on the screen using color data to designate which char- 
acter is to be plotted and in what color the character will appear. 
The color data to define a character contains two elements: the 
character number (the Atari internal character set number from 
Table 9.6), and a plus or minus offset which determines the color 
of the character. The offsets may be obtained from Figure 9.7 on 
page 56 of the Atari BASIC Reference Manual. The easiest way to 
explain this concept is with examples. 

Example 1: Suppose you want to display the standard char- 
acter K in graphics mode 1 with color 0: 

1. From Table 9.6, the internal character number for K is 43. 
Note that the K is from column 2. 

2. From Table 9.7, the offset to produce a column 2 character 
in color is + 32. 

3. The color data to plot K in color would be 43 + 32 = 75. 
4.210... 

220 Color 75 

230 Plot 5,7 

240... 
The program lines above will print a K in color at X = 5, Y = 7. 

Example 2: Suppose you want to display your custom char- 
acter number 19 in graphics mode 2 with color 3. Your character 
number 19 corresponds to the standard character ";": 

1. From Table 9.6, the internal character number for the semi- 
colon (;) is 27 from column 1 . 

2. From Table 9.7, the offset to produce a column 1 character 
in color 3 is + 128. 

3. The color data to plot your custom character in color 3 
would be 27 + 128 = 155. 

4.150... 

160 Color 155 
170 Plot 7,1 
180... 
The program lines above will print your custom character in 
color 3atX = 7,Y = l. 

A complete playfield may be drawn using the color/plot 
method by implementing a nested row, column loop which reads 
the color numbers from DATA statements and plots the characters 
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to the screen (see lines 550 through 610 of Program 3 for a 
method). 

Using the color data method has one other advantage: it 
allows easy printing of the quotation mark (") as well as all the 
numbers and punctuation in four colors. 

Program 3 is a full screen, GRAPHICS 2, fixed playfield 
demonstration using 31 custom characters: 

Lines 30-80 Initialize, define string, and find CHBASE. 

Lines 110-130 Move standard character set down to CHBASE. 

Lines 150-210 Modify the characters in the string into custom char- 
acters. Line 160 locates the correct addresses to 
modify. The — 32 is an offset to change ATASCII to 
Atari internal character numbers. 

Lines 301-331 Custom character data. 

Line 420 Select split screen mode; kill cursor. 

Lines 510-530 Change character set pointer; select colors. 

Lines 550-610 Read color data and plot characters on screen. 

Line 630 Print standard characters in text window. 

Lines 650-680 Flicker engine exhaust. 

Lines 700-709 Color data for 10 rows of 20 characters. 

Program 1 . Character Editor 

5 CLR :? " {CLEAR} " : OPEN #1, 4,0, "K: ": 
OPEN #6, 4, 0, "S: " : SETCOLOR 2,9,2:SE 
TCOLOR 4,9,2:P0KE 752,1 

10 DIM C* ( 1 ), STORE <B) : N = 

20 GOSUB 6000 

40 ? :? :? "PLUG JOYSTICK INTO JACK 
1 " 

50 ? "DRAW CHARACTER WITH JOYSTICK" 

"HOLD TRIGGER BUTTON TO ERASE": 

- o 

:? :? "{S SPACES} PLEASE WAIT . 
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90 CHBASE=(PEEK(106)-8) *256:CH0RG=57 

344 
100 FOR 1=0 TO 1023:POKE CHBASE+I.PE 

EK (CHORG+I ) : NEXT I 
105 Ct="S t " 

110 CHADD=CHBASE+ (ASC (C*> -32) *8 
120 POKE 756, CHBASE/256 
200 ? " {CLEAR} " : POKE 752,1: GOSUB 600 


205 FOR 1=0 TO 7: STORE ( I ) =0: NEXT I 
210 ? 
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220 
230 
240 
250 
260 

270 

280 

290 

300 
310 
320 
499 
500 
510 
512 
513 
514 
515 
516 
518 
520 
530 
540 
550 
560 
570 

580 

590 

600 

610 
620 
630 
640 
650 
700 
710 
720 
730 
732 
734 
736 



£4 

t4 
{4 
{4 



SPACES}87654321 
SPACES ><Q> <8 R} 



<!E> ' 
iB SPACES* 
<!8 SPACES} 
CB SPACES} 
CLEAR CHAR' 
<8 SPACES} 
DEMO CHAR" 
<8 SPACES} 
PRINT DATA' 
C8 SPACES} 
ENTER DATA' 
{8 SPACES} 
iB SPACES} 
Z } { 8 R } { C } ' 



SPACES} 

SPACES} 

SPACES} 
<3 SPACES}C = 
? " <4 SPACES} 
{3 SPACES3D = 
? "<:4 SPACES} 
<3 SPACES3P = 
? "{4 SPACES} 
{3 SPACES3E = 
? "<:4 SPACES} 
? " {4 SPACES} 
? "<:4 SPACES} 
REM MAIN LOOP 
X=7: Y=6 
K=PEEK (764) 

IF STRI6(0)=0 THEN 700 
IF K=1B THEN 1000 
IF K=58 THEN 2000 
IF K=10 THEN 3000 
IF K=42 THEN 5000 
POSITION X,Y:7 " " 
FOR DELAY=1 TO 
POSITION X,Y:? "■" 
FOR DELAY=1 TO 15:NEXT 
ST = STICK <0) 
IF ST=15 THEN 510 



7' 
3' 



15:NEXT DELAY 



DELAY 



IF ST=6 

= Y-1 

IF ST=5 

Y+l 

IF ST=5 

+ 1 

IF ST=9 

= X-1 

IF X > 1 4 

IF X 

IF Y 

IF Y 

GOTO 



OR ST=14 OR ST=10 THEN Y 



OR ST=9 OR ST=13 THEN Y= 



OR ST=6 OR ST=7 THEN X=X 



OR ST=10 OR ST=11 THEN X 



THEN X=14 
7 THEN X=7 
13 THEN Y=13 
6 THEN Y=6 
510 

POSITION X,Y:7 " ■' 
FOR DELAY=1 TO 15: 
POSITION X,Y:7 " ' 
FOR DELAY=1 TO 15: 
IF K=1B THEN 1000 
IF K=58 THEN 2000 
IF K=10 THEN 3000 



NEXT DELAY 



NEXT DELAY 
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7 38 

740 

999 

10 00 

1010 

1999 

2000 

2005 

2008 

2010 

2020 

2030 

2035 

2040 

2050 

2060 

2070 

2080 

2090 

2 100 

2110 

2 120 

2130 

2140 

2150 

2 160 

2165 

2 170 

2180 

2 190 

2200 

22 10 

2220 

2230 

2240 

2 24 2 

2244 

2248 

2250 

2260 



2265 
22 7 

2 2 8 

2290 



IF K = 
GOTO 
REM C 
POKE 
GOTO 
REM 
BYTE 
GOSU 
REM 
FOR 
FOR 
LOCA 
POSI 
IF P 
IF 
IF 
I F 
IF 
I F 
I F 
IF 
IF 
IF 
BYTE 
NEXT 
STOR 
BYTE 
NEXT 
POSI 
FOR 
STOR 
? ST 
NEXT 
STOR 
? ST 
FOR 
POKE 
REM 
A = PE 
POKE 
27,7 
A + 29 
A + 3 1 
REM 
POSI 



2 TH 
50 
EAR 
764, 
2 00 
EMO 
0: BI 
400 
ETER 
= T 
= 7 T 
E ( X 
ION 
X = 16 
X = 32 



EN 



i000 



CHAR 



= 7 
= 6 



TH 
TH 

= 5 TH 
4 TH 

= 3 TH 

= 2 TH 
1 1H 
TH 
BYTE 
X 

: ( Y) = 



Y 

ION 
= T 
= STO 
RE; " 
Y 

= STO 
RE ; 
= T 
CHAD 
LTER 
K ( 5 6 
A + 25 
POKE 
PEEK 



CHA 
T = 


MIN 
7 

+ 7 ) 
( X + 
T 
TH 
EN 
EN 
EN 
EN 
EN 
EN 
EN 
EN 
+ BI 



E DATA VALUES 

STEP -1 
, ( Y + 6 ) , P I X 
7 ) , ( Y + 6) : PUT #6, P IX 
HEN PIX=1 
EN PIX=0 
BIT = PI X 
BIT=PIX*2 
BIT=PIX*4 
B IT = P I X*8 
BIT = PI X*l 6 
BIT=Pi X*32 
BIT=PI X*64 
BIT=PI X* 128 
T 



BYTE 



2,16:? "DATA 
O 6 
RE ( Y) 



RE (7) 

7: STORE=STORE ( J ) 
D+J, STORE: NEXT J 

DISPLAY LIST 
) +PEEK (561 ) *256 
,6: POKE A+26,6:POK 

A+28, PEEK (A+29) :P 
(A+30):POKE A+30,P 



) 

PRINT CHAR TO SCREEN 

TION 2,18:7 "{3 SPACES: 



POSITION 0,2 0:? tt 6 ; " G R 1: & 

?< ?< S< 8< " J 
POSITION 0,21:? #6;"GR 2: & 

?< ?< Z< !< " ; 



E A + 
OKE 
EEK ( 



GR 

8< S< 
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2345 
2350 
2999 
3000 
3005 
3030 
3040 



3050 
3060 
3070 
3100 
31 10 
3120 
3130 
3140 
3150 



POKE 764,255 

GOTO 500 

REM PRINT DATA TO PRINTER 

TRAP 3100 

POKE 559,0 

GOSUB 3200 

LPRINT "DATA " ; 50; " , " ; SI ; " , " ; S2 

.ii ii m e"T - « " ■ Q a . H h . ck; • it ii . qi. " 

•I , , *J ^-' , , , t_> ~T , , | U J i i| | ClOi T 

";S7' 

POKE 559,34 

POKE 764,255 

GOTO 200 

GOSUB 4000 

POKE 559,34 

POSITION 2,17 

? " PRINTER NOT CONNECTED" 

? " <.<? SPACES}- OR -" 

? " {3 SPACES>PRINTER TURNED OFF 



3160 
3165 
3170 
3180 
3200 



3210 
3999 
4000 
4010 
4020 
4030 
4040 
4050 
4200 
4999 
5000 
5010 
5020 
5030 



5040 
5050 
5060 
5070 
5080 
5200 



FOR DELA 
GOSUB 40 
POKE 764 
GOTO 200 
S0=STORE 
E (2) : S3= 
=STORE (5 
7) 

RETURN 
REM CLEA 
POSITION 
FOR Y=16 
? "C37 S 
NEXT Y 
POSITION 
POSITION 
RETURN 
REM ENTE 
POKE 559 
GOSUB 32 
GOSUB 52 
? 9000+N 

5 °- i - * J ? 
J J J a ' 

GOSUB 
N = N+1 
POKE 764 
POKE 559 
GOTO 200 
? CHRtd 



Y=l TO 400:NEXT DELAY 
00 



(0) :Sl=STORE(l) :S2=ST0R 
ST0RE(3) :S4=ST0RE(4) :S5 
) : S6=ST0RE (6) : S7=ST0RE ( 



R DATA SUB 

2, 16 

TO 19 
PACES3 " 

0,20:7 "<:i9 SPACES}" 
0,21:7 "{19 SPACES}" 

R DATA INTO PROGRAM 

00 
00 
; " DATA " ; S0; " , " ; SI ; " , " 



210 



z. j ^J 
34 

!5) : ' 



: RETURN 
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5210 ? :? :? " CONT " : POS I T I ON 0,0:POK 

E 842, 13: STOP 
5220 POKE 842, 12:? CHR$(125):? : RETU 

RN 
6000 ? "(10 SPACES!! CHARACTER EDITOR" 
6010 ? "(10 SPACES} < 16 M>" 
6020 RETURN 

Program 2. Custom Characters 

10 N = 

20 MEMTOP=PEEK ( 106) *256 

30 CHBASE=MEMTOP-2048 

40 REM CLEAR MEMORY FOR NEW CHARACTE 

R SET 
50 FOR I=CHBASE TO CHBASE+1024 
60 POKE 1,0 
70 NEXT I 
80 REM POKE NEW CHARACTER SET INTO M 

EMORY 
90 READ A 
100 IF A=999 THEN 300: REM 999 IS END 

OF DATA FLAG 
110 POKE CHBASE+N,A 
120 N=N+1 
130 GOTO 90 
190 REM DATA STATEMENTS FOR SPACE, 6 

CHARACTERS AND FLAG. FIRST CHARA 

CTER MUST BE A SPACE 
195 REM LINE 220 IS A SPACE TO SKIP 

THE QUOTATION MARKS 
200 DATA 0,0,0,0,0,0,0,0 
210 DATA 32,33,35,35,35,35,255,255 
220 DATA 0,0,0,0,0,0,0,0 
230 DATA 112,112,112,112,248,248,248 

, 248 
240 DATA 248,252,254,254,86,6,255,25 

5 
250 DATA 0,0,32,32,32,32,112,240 
260 DATA 41,38,32,32,32,32,32,32 
270 DATA 0,0,0,0,0,32,32,48 
280 DATA 999 

290 REM SET GRAPHICS MODE 
300 GRAPHICS 2 
310 REM TELL COMPUTER WHERE TO FIND 

NEW CHARACTER SET 
320 POKE 756, CHBASE/256 

324 REM PRINT NEW CHARACTERS 

325 POSITION 9,7 
330 ? #6; " ' 7. " 
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335 POSITION 9,8 

340 ? *6; "&#" 

345 POSITION 9,9 

350 ? #6; " ! *" 

360 GOTO 360 

Program 3* Fixed Playf ield Demonstration 

10 CLR 

20 REM N = NUMBER OF CHARACTERS IN C 

HNEW* STRING 
30 N=31 : CH0RG=57344 
40 REM DEFINE STRING 
50 DIM CHNEW$(N) 
60 CHNEW$=" !#*7.&' <)* + ,-. /;< = >?3BGHJK 

MNPQVW" 
70 REM FIND CHBASE 
80 CHBASE= (PEEK ( 106) -8) *256 
90 7 :? " PLEASE WAIT, 760 NUMBERS 

TO MOVE" 
100 REM COPY STANDARD CHARACTER SET 

FROM CHORG TO CHBASE 
110 FOR 1=0 TO 511 

120 POKE CHBASE+I , PEEK (CHORG+I ) 
130 NEXT I 
140 REM READ AND POKE CUSTOM DATA IN 

TO THE CHARACTERS IN STRING CHNE 

W*" 
150 FOR 1=1 TO N 
160 CHADD=CHBASE+ ( ASC ( CHNEWt ( I > ) -32) 

*8 
170 FOR J=0 TO 7 
180 READ A 
190 POKE CHADD+J,A 
200 NEXT J 
210 NEXT I 

300 REM CUSTOM CHARACTER DATA 

301 DATA 0,0,0,128,0,0,0,0 

302 DATA 0,0,0,0,0,0,0,16 

303 DATA 0,0,0,0,1,0,0,0 

304 DATA 8,0,0,0,0,0,0,0 

305 DATA 0,0,0,0,0,0,31,127 

306 DATA 0,0,0,0,0,0,255,255 

307 DATA 0,0,0,0,0,0,248,254 

308 DATA 0,0,0,0,7,15,31,31 

309 DATA 1,7,31,24,255,255,255,219 

310 DATA 255,231,255,0,255,255,255,2 
19 

311 DATA 128,224,248,24,255,255,255, 
219 
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312 
313 
314 

315 

316 
317 

31B 
319 

320 
321 
322 
323 
324 

325 

326 

327 
328 
329 

330 

331 

400 
420 
500 

510 
530 

540 

550 
560 
570 
580 
590 
600 
610 
620 

630 



0,0,0,0, 224, 240, 248, 248 

31,31, 15, 7,1,1,3,2 

219, 255,255, 255, 127, 16,32,6 

219, 255, 255, 255, 255, 24, 60, 6 



DATA 

DATA 

DATA 

4 

DATA 



DATA 219,255,255,255,254,8,4,2 

DATA 248,248,240,224,128,128,192 

,64 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

*-> c er 



6, 5, 6, 12, 127, 0,0, 

128, 0,0, 0,0, 0,0,0 

60, 126, 126, 126,60,60,60,60 

1,0,0,0,0,0,0,0 

96, 160, 96, 48, 254, 0,0,0 

24, 24, 24, 24, 24, 0,0,0 

128, 192, 240, 240, 248, 252, 254 

129, 195, 231, 255, 2 55, 255, 2 55 
128, 192, 192, 224, 224, 224, 248 



1,3,7,31,6; 
1,3,7,7, 15, 

*. j j , j~ vj *j , i.ji 



,63, 127, 255 

T A 1~~* *~> r r 

w> 1 , OO, ^IJJ 

, 255, 255, 254, 249 



1, 251, 247, 207, 191, 127, 



!55, 



!55, 2: 



i5, 



DATA 

, 255 

DATA 

, 255 

DATA 

DATA 

DATA 

,7 

DATA 

, 255 

DATA 

, 255 

REM PUT PLAYFIELD ON SCREEN 

GRAPHICS 2:P0KE 752,1 

REM TELL COMPUTER WHERE TO FIND 

NEW CHARACTER SET 

POKE 756, CHBASE/256 

SETCOLOR 0, 3, 6: SETCOLOR 1,8,6:SE 

TCOLOR 2, 1 , 10: SETCOLOR 3,0,10 

REM PLOT CHARACTERS USING COLOR 

DATA 

FOR ROW=0 TO 9 

FOR COLUMN=0 TO 19 

READ CHAR 

COLOR CHAR 

PLOT COLUMN, ROW 

NEXT COLUMN 

NEXT ROW 

REM PRINT STANDARD NUMBERS AND L 

ETTERS IN TEXT WINDOW 

? :? "FUEL:2568 STARDATE: 174 A 

LTITUDE: 390" ; 
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IK ENGINE EXHAUST 
-0 TO B STEP 2 
0,3, LUM 




705 



706 



707 



70S 



709 



2, 72, 
205, 
DATA 

03, 2 
15,2 
DATA 
, 215 
, 215 
DATA 
, 215 
, 215 
DATA 
111, 
15, 2 
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215 
15,2 
15, 2 

215 
, 215 
, 215 

215 
, 215 
, 215 

215 
114, 
15,2 



,203, 202, 0,0,0, 129, 133, 7 
0, 133, 0, 206, 203, 215, 215, 

,215, 215, 205, 133, 0, 206, 2 
02, 133, 0,0, 208, 215, 215, 2 
15, 202 

,215, 209, 214,215,215,215 
,215,215, 209, 214,215,215 
, 215, 215, 215 

,215,215,215,215,215,215 
,215,215,215,215,215,215 
, 215, 215, 215 

,215,215,215,215, 115, 99, 
101,26,21,16,19,23,215,2 
15, 215 
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The Four-Color 
Character Modes 

Orson Scott Card 



Here's ho~w to unlock two "hidden" character modes on your Atari: 
ANTIC 4 and 5. Each character can display up to four colors at a time, 
and the effect can be exciting. This is a complete introduction to four-color 
character graphics, including subroutines that will help you use these 
modes in your own programs and a complete character set you can type in 
and use. 

Two of the programs in this book are designed to help you make 
use of two "hidden" graphics modes on your Atari: the four-color 
character modes. "Four-Color Character Editor" allows you to 
create characters in these modes and save entire character sets to 
tape or disk. "Fontbyter" allows you to draw large or small screen 
displays using the character sets you created with the Four-Color 
Character Editor. To make full use of these utilities, it helps to 
know how the four-color character modes work. 

ANTIC and the Character Modes 

The GRAPHICS command automatically changes the way the 
ANTIC video chip in your Atari computer controls the television 
screen. GRAPHICS 0, 1, and 2 are text modes, putting characters 
like A, 7, or % on the screen; GRAPHICS 3 through 8 are pixel 
modes, in which you control the color of little squares, called 
pixels, on the screen. 

The modes differ from each other in the size of each character 
or pixel. If you use a mode with larger pixels or characters, you 
will use up less memory to create your screen display — but you 
will also get fewer colors or poorer picture resolution. 

When your program uses a character mode, the ANTIC 
processor scans through screen memory. Each byte of memory 
contains a number from to 255. ANTIC uses that number as an 
index or pointer into character memory. The number 22 tells 
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ANTIC to skip 22 characters in order to find the one to display in 
that position on the screen. 

Let's go through that process in detail. 

The Display List 

First, ANTIC checks locations 560 and 561 to get the address of the 
display list. When ANTIC jumps to the display list, it usually 
finds that the first three bytes each contain the number 112, which 
tells ANTIC to output several blank lines to the TV screen. 

Screen memory address. ANTIC then finds an instruction 
that consists of the ANTIC mode number, or mode instruction, 
plus the number 64. The number 64 is a code that tells ANTIC to 
look for screen memory at the address contained in the next two 
bytes. Whenever ANTIC finds a 64 added to a mode instruction in 
the display list, it looks at the next two bytes to find the address of 
screen memory. 

The first mode instruction must have a 64 and be followed by 
the screen memory address. If screen memory continues 
unbroken from there, you never need to give the address of screen 
memory again. Anytime you want to change screen memory, 
however, you only need to add 64 to the mode instruction for the 
line where you want the change to begin, and then give the new 
screen memory address in the next two bytes. 

Mode instructions. The ANTIC mode number that is added 
to 64 is not the same as the graphics mode number you use with 
the GRAPHICS command. ANTIC modes range from 2 to 15. 
(Table 1 shows how the ANTIC mode numbers compare to 
graphics mode numbers.) ANTIC modes 2 through 7 are char- 
acter modes; modes 8 through 15 are pixel modes. 

There must be a mode instruction for every line on the 
screen. In ANTIC 2 (GRAPHICS 0) there are 24 lines on the 
screen — so there must be 24 mode instructions. In ANTIC 15 
(GRAPHICS 8) there are 192 lines — and so you must have 192 
mode instructions. 

Close the display list. After the last mode instruction, there 
will be a 65 — which is the 64 instruction added to 1 . The 64 tells 
ANTIC to look for an address in the next two bytes, but the 1 tells 
it that it won't be screen memory, but rather the address of the 
start of the display list. ANTIC then waits until it's time to start 
displaying at the top-left corner of the TV screen again, then 
jumps back to the start of the display list and starts over. 

Here's a short subroutine you can use in your own programs 
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to create an ANTIC 4 or 5 display list. Lines 5-20 are not part of 
the subroutine — they're just there so you can RUN the program 
right now and see what ANTIC 4 and 5 do to the screen. 

Atari BASIC will still let you type and enter program lines or 
instructions as if you were in GRAPHICS 0. That's fine if you're in 
ANTIC 4, since both GRAPHICS and ANTIC 4 use 24 lines of 40 
characters. But ANTIC 5 uses only 12 lines of 40 characters, so 
BASIC'S screen handler will put half the screen display "below" 
the TV screen, out of sight. 

Display List Maker 

5 ? "What ANTIC mode do you want? < 

4 or 5" 
10 TRAP 10: INPUT M: IF M<4 OR M>5 THE 

N M = 2 
15 ? "Writing a display list in ANTI 

C ";M:GOSUB 4000 
20 END 
4000 DL=PEEK (560) +256 « PEEK (561 ) : POKE 

DL + 3, M+64 
4005 FOR I=DL+6 TO DL+ 1 6+ 1 2* ( M=4) : PO 
KE I,M:NEXT I : POKE I,65:POKE 1+ 
1,0:POKE 1+2, DL/256: RETURN 

This routine works only if you are leaving the display list exactly 
where the latest GRAPHICS statement left it. 

Reading Screen Memory 

After each mode instruction in the display list, ANTIC goes to 
screen memory and reads the next line's worth of information. If a 
line is 40 units wide, ANTIC reads 40 bytes. In a pixel mode, 
ANTIC interprets those bytes directly as instructions telling it 
what color to use for the squares on the screen. In a character 
mode, however, ANTIC uses the bytes as an index into the char- 
acter set. 

Finding the character set. ANTIC finds the character set by 
using the number held in location 756. When the computer 
powers up, that number points to the page number (or high byte) 
of the address of the built-in character set. You can change that 
number to point to your own character set. Make sure that your 
character set begins on a IK boundary, however. The easiest way 
to make sure that the address you are POKEing into location 756 
is on a IK boundary is to use the following routine. The variable 
CHBAS is the high byte of the starting address of your character 
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set. TOP is where you are telling the computer the top of memory 
is. Anything you put above TOP will be left alone by the 
computer. 

500 TOP=PEEK ( 106) -8 
510 POKE 106, TOP 
520 CHBAS=TOP+4 

This fools the computer into thinking that usable memory 
ends eight pages (2K) sooner than it really does. Now you have 
plenty of space that the computer won't touch. The character set 
itself needs only four pages (IK), but the other four pages will 
hold your display list and other safe memory. In fact, if you 
subtract more pages, you can put your screen memory in this safe 
area, too. 

530 CH=CHBAS*256 

If you multiply CHBAS by 256, you get CH, the full address 
of the character set, rather than just the page number, or high 
byte, of its address. 

540 OPEN #1,4,0, "DiCUSTOM.SET'^FOR I 
=0 TO 1024:GET #l,N:POKE CH+I,N: 
NEXT It CLOSE 

This line opens the disk file containing your character set 
("D:CUSTOM.SET") and loads it (slowly) into screen memory. 

550 POKE 756, CHBAS 

From the moment you make this POKE, ANTIC will use 
your character set instead of the built-in character set. 

Fast loading. Here is a subroutine you can add to your own 
programs. It loads your character set from disk in a few seconds, 
using a machine language routine, and then writes a display list. 
Most of the time you will completely eliminate lines 5 and 6, the 
PRINT ("?") statements in lines 4000 and 4020, and all of lines 
4025 and 4030; instead, your program will simply assign your 
character set's disk filename to the variable CHSET$ and the 
ANTIC mode number to the variable M. The excess material is 
included here so that you can try out the routine and see how it 
works. 

Character Set Loader 

5 DIM CHSET* (20) : CHSET«="D: CASTLE. SE 
T" :GOSUB 4000 

6 END 
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4000 A=PEEK(106) :T0P=A-8:CHBAS=T0P+4 

: DL=256*TOP: POKE 1 06 , TOP : CH=CHB 

AS*256: GRAPHICS 0:7 "Loading "; 

CHSETt 
4005 X=16: ICC0M=834: ICBADR = 836: ICBLE 

N=840: SL=PEEK (88) : SH=PEEK (89) 
4010 OPEN #1 , 4, 0, CHSET* 
4015 POKE ICBADR+X+1 , CHBAS: POKE ICBA 

DR+X,0:POKE I CBLEN + X+ 1 , 4 : POKE I 

CBLEN+X, 
4020 POKE ICCOM+X, 7: I=USR <ADR ( "hhhQL 

VE" ), X ): CLOSE *1:7 "What ANTIC 

mode do you want? (4 or 5)" 
4025 TRAP 4025: INPUT M: IF M<4 OR M>5 

THEN 4025 
4030 7 "Writing the display list for 

ANTIC " ; M 
4035 FOR 1=0 TO 2:P0KE DL+ I , 1 1 2 : NE XT 
I : POKE DL + 3, M + 64: POKE DL + 4,SL: 

POKE DL+5,SH 
4040 FOR I=DL+6 TO DL+ 1 6+ 1 2* ( M = 4 ) : PO 

KE I,M:NEXT I : POKE I,65:POKE 1+ 

1,0:POKE I+2,DL/256 
4045 POKE 756, CHBAS: POKE 560,0:POKE 

561 , DL/256 

Reading the character set. When ANTIC reads a byte of 
screen memory, it uses it as an index into the character set. Let's 
say that ANTIC found a 34 in screen memory. Since each char- 
acter in the set uses up eight bytes for its definition, ANTIC will 
look for the character at CH + 8*34, or 272 bytes after the start of 
the character set. ANTIC reads the eight bytes of that character 
pattern; it will display the character pattern in the next location on 
the screen. Then it goes to screen memory, reads the next byte, 
finds that character pattern in the character set, and so on. 

ANTIC 4 and 5 Character Modes 

ANTIC 4 handles screen memory exactly like GRAPHICS 
(ANTIC 2), the normal text mode on the Atari. There are 24 lines 
of 40 characters each on the screen. However, the characters are 
interpreted very differently. 

Normal character patterns. No matter what character mode 
you are using, the characters are created following the pattern 
formed by eight bytes. Each byte consists of eight bits. Think of 
the bytes as if they were stacked on top of each other, making a 
square eight bits wide and eight bytes high, as in Table 2. 

73 



ANTIC 2 (GRAPHICS 0) reads the character pattern in a 
straightforward way. If a bit in the character pattern is set to 1, it is 
on, and one dot of the character's color is displayed; if the bit is set 
to 0, the background color is displayed in that spot. The pattern 
for a letter A might look like the one shown in Table 3. 

Four-color character patterns. ANTIC 4 and 5 cannot use 
exactly this system, since the same eight bytes must tell ANTIC 
not only which bits are on and which are off, but also which color 
the dot on the screen should be. One bit just won't do. So the 
four-color character modes treat the bits as pairs, so that two bits 
control each dot on the screen, as shown in Table 4. 

However, this would make each character only half as wide, 
and it would take 80 characters to fill a line. To avoid this, each bit- 
pair in ANTIC 4 characters controls the color of two dots on the 
screen. Now the characters are just as wide as the characters in 
ANTIC 2 (GRAPHICS 0), but the horizontal resolution is only half 
as good. 

That is why, in these four-color character modes, it is nearly 
impossible to create letters like W and M, and very hard to distin- 
guish between N and H. The four-color modes are not particularly 
good for alphanumeric characters. However, they are wonderful 
for making the building blocks of elaborate full-color drawings. 

The five colors. Each bit-pair has four possible combinations: 
00, 01, 10, and 11. These correspond to the decimal numbers 0, 1, 
2, and 3. A bit-pair with the value of 00 will cause the background 
color, stored at memory location 712, to be displayed. A bit-pair 
with the value of 01 will display the color stored at location 708; 
the bit-pair 10 (decimal 2) will display the color at location 709; and 
the bit-pair 11 (decimal 3) will display the color stored at location 
710. 

There is a fifth color available. If a character is entered into 
screen memory in inverse mode (the character number plus 128), 
then any bit-pair 11 (decimal 3) in that character will display, not 
the color at 710, but the color at 711. This means that if you plan 
your character set carefully, you can have five colors on your 
screen at one time. 

We still call them four-color character modes, however, 
because no one character can display more than four colors at a 
time. 

Table 5 shows a simple shape, an apple tree with fruit on it. 
The trunk is brown, the leaves are green, the fruit is red, and the 
background is black. However, this pattern creates only half the 
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tree — it is assumed that the other half is held in another character, 
and the two would be combined to create the hill tree. 

Also, the fruit is created with the bit-pair 11 (decimal 3). This 
allows us to enter the same character in inverse mode and display 
different-colored fruit — orange, for example, instead of red. Or 
fruit could ripen gradually from green to bright red. Careful plan- 
ning can result in a great deal of freedom in creating your screen 
displays. 

How to Use the Utilities 

The Four-Color Character Editor will let you create your own 
ANTIC 4 and 5 character sets. This will be a time-consuming 
project, but once you have a character set made, you can use it 
again and again to make many different drawings. 

Fontbyter will let you use your own character sets — or the 
Castle Maker character set included here — to make your own 
drawings and save them, perhaps to use them in programs. You 
can make drawings many times the size of the TV screen and 
scroll through them. 

You don't have to have a particular programming goal in 
mind. Though both programs are long and will take quite a bit of 
time to type in, they can be used over and over again. You'll have 
a hard time deciding whether you're programming, creating 
artwork, or just playing. The truth is, with ANTIC 4 and 5, you 
can do all three at once. 
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Table 1 . Character Modes 



Character Modes 
GRAPHICS ANTIC 

2 



Characters or 
pixels per 
line 



40 



40 



12* 



40 



13* 



40 



20 



20 



*XL Models 



Comments 

The default mode of the Atari. The 
border and background can be 
different colors, but the characters are 
the same color as the background — 
only the brightness is different. 
Twenty-four lines on the screen. 

Rarely used. It is identical to 
GRAPHICS except that the top two 
lines of each lowercase character are 
put on the bottom. It can be used to 
create true descenders on lowercase 
letters. 

Identical to GRAPHICS in the way it 
uses screen memory and the size of 
the character set (all 256 characters are 
available), but four colors are possible 
in each character, and by using inverse 
characters, five colors can be displayed 
on the screen at once. However, the 
horizontal resolution is only half as 
good as in GRAPHICS 0. Twenty-four 
lines on the screen. 

Identical to ANTIC 4 except that each 
character is twice as tall. This gives the 
characters a stretched-out look, but fills 
up the screen while using half as much 
memory. Twelve lines on the screen. 

Uses only 64 characters, but each 
character can be displayed with one of 
four different colors. Twenty- four 
lines per screen. 

The same as GRAPHICS 1 (ANTIC 6) 
except the characters are twice as tall. 
Twelve lines per screen. 
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Table 2. The 8x8 Character Matrix 



Bits 


76543210 


Bytel 


00000000 


Byte 2 


00000000 


Byte 3 


00000000 


Byte 4 


00000000 


Byte 5 


00000000 


Byte 6 


00000000 


Byte 7 


00000000 


Byte 8 


00000000 



Table 3. A GRAPHICS Character Pattern 



Bits 


76543210 




Bytel 


00000000 




Byte 2 


110 


1 1 


Byte 3 


11110 


1111 


Byte 4 


110 110 


11 11 


Byte 5 


1111110 


111111 


Byte 6 


110 110 


11 11 


Byte 7 


110 110 


11 11 


Byte 8 


00000000 





Table 4. The 4 x 8 ANTIC 4 and 5 Matrix 



Bits 


7-6 


5-4 


3-2 


1-0 


Bytel 


00 


00 


00 


00 


Byte 2 


00 


00 


00 


00 


Byte 3 


00 


00 


00 


00 


Byte 4 


00 


00 


00 


00 


Byte 5 


00 


00 


00 


00 


Byte 6 


00 


00 


00 


00 


Byte 7 


00 


00 


00 


00 


Byte 8 


00 


00 


00 


00 
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Table 5. An ANTIC 4 Character Pattern 



Bits 


Bit Patterns* 

7-6 5-4 3-2 1-0 




"On' 


Bits 




Colors Displayed 


Bytel 


00 


10 


00 


10 




10 




10 


GRE GRE 


Byte 2 


10 


11 


10 


J! 


10 


11 


10 


11 


GRE RED GRE RED 


Byte 3 


10 


10 


10 


10 


10 


10 


10 


10 


GRE GRE GRE GRE 


Byte 4 


00 


10 


11 


10 




10 


11 


10 


GRE RED GRE 


Byte 5 


00 


10 


10 


10 




10 


10 


10 


GRE GRE GRE 


Byte 6 


00 


00 


00 


01 








01 


BRN 


Byte 7 


00 


00 


00 


01 








01 


BRN 


Byte 8 


00 


00 


00 


01 








01 


BRN 



*00 = Color Register 4 (background, memory location 712) 
01 = Color Register (memory location 708) 

10 = Color Register 1 (memory location 709) 

11 = Color Register 2 (memory location 710) 

11 inverse = Color Register 3 (memory location 711) 



Castle Maker — A Character Set 

900 OPEN #1 ,8,0, "Dl: CASTLE. SET" 

910 FOR 1=1 TO 1024:READ N:PUT #1,N: 

NEXT IrCLOSE #1:? I : END 
1000 DATA 0,0,0,0,0,0,0,0 
1008 DATA 255,84,84,84,84,84,84,68 
1016 DATA 255,21,21,21,21,21,21,17 
1024 DATA 191,191,186,255,171,171,17 

1 ,255 
1032 DATA 0,25,0,0,0,0,0,0 
1040 DATA 0,4,16,64,85,64,16,4 
1048 DATA 1,3,1,3,1,3,1,3 
1056 DATA 64,192,64,192,64,192,64,19 

2 
1064 DATA 0,0,3,15,63,252,240,192 
1072 DATA 0,0,192,240,252,63,15,3 
10B0 DATA 255,3,3,3,3,3,3,3 
1088 DATA 255,0,0,0,0,0,0,0 
1096 DATA 0,0,0,0,68,32,0,0 
1104 DATA 250,250,255,255,175,175,17 

0, 255 
1112 DATA 0,8,17,0,0,0,0,0 
1120 DATA 17,8,0,0,0,0,0,0 
1128 DATA 252,63,15,3,0,0,0,0 
1136 DATA 85,85,85,85,85,85,85,85 
1144 DATA 255,255,3,3,12,240,0,0 
1152 DATA 255,255,0,0,0,0,0,0 
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1 160 


DATA 


1 168 


DATA 


1 176 


DATA 


1 184 


DATA 


1 192 


DATA 


1200 


DATA 


1208 


DATA 


1216 


DATA 




2,19 


1224 


DATA 


1232 


DATA 




5, 25 


1240 


DATA 


1248 


DATA 




1 , 25 


1256 


DATA 


1264 


DATA 




1 , 25 


1272 


DATA 




1 , 25 


1280 


DATA 


1288 


DATA 


1296 


DATA 


1304 


DATA 


1312 


DATA 




2,19 


1320 


DATA 


1328 


DATA 


1336 


DATA 




5, 25 


1344 


DATA 


1352 


DATA 




1 , 25 


1360 


DATA 




4, 25 


1368 


DATA 


1376 


DATA 




5, 25 


1384 


DATA 




1 , 25 


1392 


DATA 


1400 


DATA 


1408 


DATA 




2, 25 


1416 


DATA 


1424 


DATA 


1432 


DATA 


1440 


DATA 


1448 


DATA 



255 
0, 
0, 
3,3 
0, 
63, 
42, 
255 

t 

0, 
171 

I 

192 

255 

> 

0, 
186 

186 

0, 
0, 
64, 
3,3 
192 



64, 
255 

0, 
171 

192 

3, 3 
170 

175 

0, 
0, 
192 

S 

87, 

1 , 1 
0, 
1,5 
255 



255, 192, 
0,0,0,0, 
0, 0,0,0, 

3 f 1 5 j 6 3, 
52, 240, 1 
,4,4,4,0 
192, 192, 

192, 240, 
171, 17 1, 

192, 192, 

0,0,0,32 
186, 186, 



192, 48, 15,0,0 

192, 240 

3,15 

240, 0, 

252, 243, 195 

92, 0, 0, 0, 

,0, 

192, 192, 192, 19 

252, 63, 207, 195 
171 , 251 , 251 , 25 

48, 48, 15,0,0 
255, 171, 171, 17 

, 68, 

255, 171, 171, 17 



255, 171, 255, 186, 255, 17 



0,0, 255, 
0,0,0,0, 
0, 84, 85, 

192, 192, 



195, 195, 195 

0, 255 

85, 85, 85, 85 

3, 255 

192, 192, 192, 19 



O ■ O , O ■ O ■ 



4, 80, 80, 
255, 255, 

0, 0,171, 
171 , 171 , 



84, 84, 85, 85 
255, 255, 255, 25 

171 , 171 , 255 
255, 171,171,17 



192, 224, 224, 232, 232, 23 



1 1 , 1 i , 43 
170, 170, 



,43, 171 , 255 
170, 175, 175, 25 



175, 255, 255, 251, 251, 17 



0,0, 1,5, 
0, 0, 64, 8 
192, 192, 

3, 87, 3, 3 
5,5,21,2 
0, 255, 18 
21 , 85, 85 
195, 195, 



21 , 85 

0, 84, 85 

192, 192, 192, 19 

1 , 85, 85 

6, 255, 171 , 255 

•j O J j oD tj h)Z3 

195, 255, 0, 0,0 
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1456 DATA 2 13,212,213,192,192,192,19 

2, 192 

1464 DATA 255,195,195,195,255,195,19 

5, 195 

1472 DATA 171,171,43,43,11,11,3,3 

1480 DATA 11,11,11,15,3,3,3,3 

14S8 DATA 234,234,232,232,224,224,19 

2, 192 

1496 DATA 224,224,224,240,192,192,19 

2, 192 

1504 DATA 186,186,186,255,43,43,43,6 

3 

1512 DATA 85,20,16,4,1,17,68,16 

1520 DATA 2,2,10,22,22,86,86,85 

1528 DATA 252,236,172,44,5,5,5,245 

1536 DATA 84,80,64,16,68,68,16,64 

1544 DATA 4,4,21,20,85,85,84,80 

1552 DATA 4,5,1,21,31,31,31,95 

1560 DATA 0,0,64,84,84,0,0,0 

1568 DATA 0,0,1,21,21,0,0,0 

1576 DATA 16,16,84,20,85,85,21,5 

1584 DATA 0,3,3,15,61,4,17,32 

1592 DATA 85,133,129,149,154,154,154 

, 154 

1600 DATA 128,128,160,148,148,149,14 

9, 85 

1608 DATA 85,16,4,1,17,68,16,64 

1616 DATA 85,80,64,0,0,64,64,16 

1624 DATA 2 1,5,1,4,17,17,4,1 

1632 DATA 64,240,176,188,95,68,81,66 

1640 DATA 66,81,93,93,93,93,253,85 

1648 DATA 85,85,85,85,85,85,51,51 

1656 DATA 32,17,29,29,29,29,31,21 

1664 DATA 85,82,66,86,166,166,166,16 

6 

1672 DATA 66,81,221,221,221,221,253, 

85 

1680 DATA 0,3,3,3,1,4,16,16 

1688 DATA 63,59,58,56,80,80,80,95 

1696 DATA 16,80,64,84,244,244,244,24 

5 

1704 DATA 85,5,1,0,0,1,1,4 

1712 DATA 64,240,176,176,80,68,65,65 

1720 DATA 85,20,4,16,64,68,17,4 

1728 DATA 34,68,84,16,16,20,16,20 

1736 DATA 4,16,64,0,80,68,17,4 

1744 DATA 255,195,255,12,12,252,60,2 

52 

1752 DATA 5,7,12,48,63,53,53,63 
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1760 
1768 
1776 
1784 
1792 
1800 
1808 
1816 
1824 
1832 
1840 
1848 
1856 

1864 

1872 
1880 

1888 

1896 
1904 
1912 
1920 
1928 
1936 
1944 
1952 
1960 
1968 
1976 
1984 

1992 

2000 
2008 
2016 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

235 

DATA 

65 

DATA 

DATA 

8 

DATA 

8 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

1 , 255 

DATA 

2, 252 

DATA 

DATA 

DATA 



192, 
0,0, 
0,0, 
0,0, 
0,0, 
0,0, 
68, 1 
0,0, 
0, 0, 
16, 1 
60, 5 
16, 1 
60, 2 



0,0, 
20, 1 
0,5, 
5,16 
0,0, 
80, 4 
00, 1 
0,0, 
16,4 
6,16 
6, 56 
6, 16 
8, 22 



0,2 
25, 
21, 
,64 
0,2 

, 1. 

00, 
64, 

, 1, 

, 68 
,21 
,20 
3,2 



5 

255 

85, 

,64 

1,6 

1 , 5 

32, 

21, 

65, 

, 68 

,80 

, 17 

15, 



9 

19 
84, 
, 80 
5, 1 
, 80 

■->*- , 
85, 
84, 
, 65 
, 80 
, 17 
215 



92, 252 

5, 195, 255 

85 

. 5 

6 

20, 33, 32 
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, 17,81 

, 20, 48 

, 64, 69 

, 215, 215, 



48, 4 8, 240, 240, 252, 255,252, 

48, 48, 60, 63, 63, 63, 63, 24 
48, 60, 60, 204,204, 204, 204, 6 

48, 236, 239, 16, 100, 100, 85, 4 



60, 2 
16,4 
0, 32 
16, 8 
60, 4 
240, 
0, 0, 
1,4, 
0,4, 
60, 4 
4, 20 
250, 



48, 248, 32, 96, 84, 80, 80 
,0, 85, 5, 0,4, 16 

0, 69, 85, 64, 80, 68, 17 

0, 40, 21, 84, 84, 84, 48 

176, 176, 16, 20, 20, 80, 48 

0,0, 1 , 84, 85, 69 

4, 84, 16, 16, 64, 64 

1,1,81, 85, 69, 21 

4, 44, 15, 19, 80, 16, 16 

, 68, 21 , 85, 1,1,5 

250, 186, 255, 171, 171, 17 



186, 186, 186, 255, 232, 232, : 

0,0,0,0,0, 100, 0, 
255,60, 60, 255, 60, 48,48, 
3, 12, 48, 192, 80, 196, 1,0 
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Four-Color Character 
Editor 

Tim Kilby 



Creating multicolor character sets is no longer tedious guesswork. With 
this editor you can see the characters as you create them, with the exact 
colors you want. 

Two of the most effective graphics modes on the Atari are hidden 
away where you can't access them from BASIC. ANTIC modes 4 
and 5 require you to use a custom display list — and then you can't 
do anything until you develop your own character sets. But it's 
worth the effort. 

What makes these two modes so valuable? For one thing, 
each character can display up to four colors, and when you enter 
characters in inverse mode, any pixels in Color 3 are displayed 
instead as a fifth color. For another thing, you can get better reso- 
lution than GRAPHICS 7, while using up only a fraction of the 
memory. This lets you create easy-to-scroll displays that are many 
times larger than is possible in the pixel modes. 

With the right tools, ANTIC 4 and 5 are as easy to use as any 
other. This is one of those tools. 

What You See 

After a few moments of initialization, the editing workspace 
appears on the screen. 

The top third of the screen is the Character Grid. Actually, 
two grids are shown with little dots on a black background. The 
left-hand grid shows the current character roughly as it appears in 
ANTIC 4, but much enlarged. The right-hand grid shows the 
character bit-pattern. In both grids, the rectangles are the correct 
color. This means you don't have to keep track of which bits 
should be on or off in order to access Colors 1, 2, or 3. 

On the left-hand grid there is also a red rectangle. This is 
your cursor. It moves as you command it, and you can change the 
color of whatever rectangle it rests upon. 
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The Message Field, below the grids, is light blue. At the 
beginning it shows the Menu, which tells you which commands 
are available to you. 

The Character Field displays the entire character set in 
ATASCII numerical order. 

And the black Display Field shows the character currently in 
the grid in its actual size, in regular and inverse modes, in ANTIC 
4 (short) and ANTIC 5 (tall), singly and clustered. 

How to Use the Editor 

Load. Press L to load a previously saved character set. The 
program assumes that the character set will be on disk drive 1 and 
will have the extender ".SET". Therefore, you need to enter only 
the eight-letter filename. As soon as the character set is loaded, it 
will be displayed in the Character Field. 

Save. Press S to save the character set as it is now displayed 
in the Character Field. Again, you need to enter only the eight- 
letter filename. To change the default device from "Dl:" to "Dn:" 
or "C:", just change line 820. 

1, 2, and 3. Press 1 to select Color 1; press 2 to select Color 2; 
press 3 to select Color 3. Whichever color was last selected will be 
placed in the character at the cursor position when you press the 
joystick button. 

Edit. Press E to select a new character to edit. The Message 
Field will display the prompt "- Select character -". The character 
you select will then be displayed in the Character Grid and in the 
Display Field. 

Menu. Press M or the space bar to display the Menu in the 
Message Grid. 

Rub. Press R to erase completely the character now in the 
Character Grid. It will immediately become a blank. 

Copy. Press C to copy one character's pattern into another's 
place in the character set. Whatever character is then being edited 
will immediately be replaced by the copy-character's pattern — 
both characters will then be identical. This command lets you 
move characters around. Remember, though, that the character 
you copy to will disappear — it's a good idea, if you don't want to 
lose it, to copy that character to another position first. If you 
wanted to trade the positions of B and A, you would first choose 
to edit the blank character (space bar). Press C and then B; the 
blank character will then be replaced by B. Then choose to edit B, 
and copy from A. Then choose to edit A and copy from the blank 
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character. Finally, choose to edit the blank character again, and 
type R to erase it — it will be blank again, and A and B will have 
traded places. 

Test. Press T to enter Test Mode. In this mode, the Display 
Field goes blank, and you can test your characters simply by 
typing them normally at the keyboard. The cursor control keys 
retain their normal function; to print the ARROW key characters, 
you must press ESC first, as in GRAPHICS 0. You can still change 
colors (see Joystick 2, below). Pressing the INVERSE key will 
toggle you back and forth between inverse and regular mode. Exit 
Test Mode by pressing RETURN. No other editing commands 
function in Test Mode. 

SELECT. Press SELECT to toggle the Character Field between 
ANTIC 4 and GRAPHICS 0. 

Joystick 1. Joystick 1 controls the cursor's movement in the 
Character Grid. Pressing the button on Joystick 1 causes the 
cursor rectangle to toggle on or off. If the cursor is over a blank 
rectangle, it will then display the currently selected color. If the 
cursor is over a colored rectangle, it will then become blank. 

Joystick 2. Joystick 2 controls the actual color values 
displayed by Colors 1, 2, and 3, and the background and inverse 
colors as well. Moving the joystick toward you and away from 
you controls Color 1. Moving the joystick left and right controls 
Color 2. Moving the joystick toward you and away from you with 
the OPTION button pressed controls the inverse color. Moving 
the joystick toward you and away from you with the joystick 
button pressed controls Color 3. And moving the joystick left and 
right with the joystick button pressed controls the background 
color. This lets you see how different color combinations work 
with the characters you have created. You can also change colors 
during Test Mode. (GRAPHICS reads the color registers differ- 
ently, so the Message Field and Character Field can behave oddly 
during color changes.) 

To quit editing, press RESET. 

Four-Color Character Editor 

20 REM 



CO COPYRIGHT 1982 TIM KILB 



30 DIM A* ( 1 ) ,0* ( 1) ,CLEAR2* ( 1) , ZERO* ( 
1 ) , CLEAR 1* ( 1) , CLEAR4* ( 1 ) , FILE* < 15 
) ,NAME* (15) , A(7, 8) 

40 GOTO 1180 
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50 SOUND 0, Y/2+100-X/4, 10,4:FQR D= 1 
TO B:NEXT DrSOUND , , , : RETURN 

60 rem weswnm 

70 GOSUB 110:POSITION 1,0 

80 ? "[=ditC5 SPACES>Bopy<:5 SPACES>[Io 

ad Set(4 SPACES>Eub" 
90 ? "Color D, e, or E< 4 SPACESJ3ave S 

et{4 SPACEB>Dest" 
100 ? " BBB3BD {ESC>{DDWN}mode{ESC} 

{D0WN>C7 SPACES}* CHOOSE ONE *"; 
: RETURN 
110 CLEAR2*=ZER0* ( 1 , 120) : RETURN 



120 
130 

140 



150 



160 



170 



1S0 



190 



REM 
POKE 
E 89 
POKE 
+ 100 
E 89 
POKE 
+ 220 
E 89 
POKE 
+ 380 
E 89 
POKE 
+ 460 
E 89 
GOSU 
, Is? 
HR* ( 
FOR 



SCREEN MEMORY ORIENTATION 



R* (C 

+ 128 

!00 POSI 

* (CH 



87, 3 
, PEEK 

82, 1 
-INT < 
, INT ( 

82, 4 
-INT ( 
, INT ( 

82, 
-INT ( 
, INT ( 

82, 
-INT ( 
, INT ( 
B 160 

CHR$ 
CHR+1 
A=l T 
GOSUB 
HR) : P 
) 

TION 
R) ; : N 



: POKE 
<DL + 5 
: POKE 
(HOME 
(HOME 
: POKE 
(HOME 
(HOME 
: POKE 
(HOME 
(HOME 
: POKE 
(HOME 
(HOME 
: POKE 
(CHR) 
28) : P 
O 5: ? 
170: 
OSITI 



88, 
) : RE 

87, 
+ 100 
+ 100 

87, 
+ 220 
+ 220 

87, 
+ 380 
+ 380 

87, 
+ 460 
+ 460 

766 
: POS 
OSIT 

CHR 
POSI 
ON 1 



PEEK (DL 
TURN 
0: POKE 
) /256) * 
) /256) : 
0: POKE 
) /256) * 
) /256) : 
0: POKE 
) /256) * 
) /256) : 
0:POKE 
) /256) * 
) /256) : 
, 1 : POSI 
I TION 1 
ION 25, 
* (CHR) ; 
TION 11 
8,1:? C 



+4) : POK 

88, HOME 
256: POK 
RETURN 
88, HOME 
256: POK 
RETURN 
88, HOME 
256: POK 
RETURN 
88, HOME 
256: POK 
RETURN 
TION 11 
8,1:? C 
1 

:NEXT A 
, 1 : ? CH 
HR* (CHR 



25,1:F0R A=0 TO 5:? CHR 
EXT A:POKE 766,0:RETURN 



10 
:20 



!30 



!40 



REM 1:J*»hJJ.>«:hfcM 

GOSUB 130: F=X/4: G= (Y-20) /4: LOCAT 
E 8 + F, G+l , A: SOUND , 20 + G-F , 1 , 2 : 
COLOR C*(A=0):PLOT 8+F,G+l:PLOT 
9+F, G+l 

IF C=l THEN PLOT 28+F , G+ 1 : COLOR 
0:PLOT 27+F,G+l:A(G,F+l)=INT(2"( 
6-F ) +0. 1 ) 



IF C = 2 
0: PLOT 
F) +0. 1 ) 



THEN PLOT 27+F, G+l : COLOR 
28 + F,G+l:A(G,F)=INT(2-"-(7- 
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250 



260 
270 



280 
290 
300 
310 

320 

330 

340 
350 

360 

370 



380 
390 
400 

410 
420 

430 
440 

450 



460 

470 
480 

490 



IF C=3 THEN PLOT 27+F , S+ 1 : PLOT 2 

8+F,G+l:A(G,F)=INT(2"(7-F)+0.1): 

A (B, F+l ) =INT <2-- (6-F) +0.1) 

IF A>0 THEN A (B, F) =0 : A (G, F+l ) =0 

A(S,8)=0:FOR D=0 TO 7:A(G,8)=A(G 

,8) +A <E, D) : NEXT D:POKE CHBASE+CH 

R*B+E, A (S, 8) 

SOUND 0, 0, 0, 0: GOSUB 140:RETURN 

rem ■aaoM 

GOSUB 110:GOSUB 340 

POSITION 10,1:7 " - Select charac 

ter -"; 

GET #3,CHR:E0SUB 360:GOSUB 140:R 

ETURN 

FOR A=0 TO 7: POKE CHBASE+CHR *S+A 

, 0: NEXT A 

CLEARl*=ZERO*(l, 100) 

FOR A=0 TO 7:F0R B=0 TO B : A ( A , B ) 

=0:NEXT B:NEXT AiRETURN 

REM ■■J»iUr.j:r: , l:T:T.*rgT» 

POSITION 6,0:? "Use joystick to 

move cursor. ": POSITION 8,1:? "Pr 

ess FIRE to plot point." 

POSITION 14,2:? " ( C for MENU)"; 

SOSUB 180 

SOSUB 130: IF CHR>127 THEN CHR=CH 

R-128 

IF CHRM27 THEN CHR = CHR-128 

IF CHR>31 AND CHR<96 THEN CHR=CH 

R-32:G0T0 440 

IF CHR<32 THEN CHR=CHR+64 

R=CHBASE+CHR«8: FOR A=0 TO 7:D=PE 

EK<R+A) : B=A+1 

F=0:IF D>127 THEN D=D- 1 28 : F=F+ 1 : 

COLOR 2:PL0T 27,B:PL0T 8,B:PL0T 

9,B:A(A,0)=128:A(A,B)=A(A,8)+A(A 

,0) 

IF D>63 THEN D=D-64 : F=F+ 1 : COLOR 

IsPLOT 28,B:PL0T B,B:PLQT 9,B:A( 

A, 1)=64:A(A,8)=A(A,8)+A(A, 1) 

IF F>1 THEN COLOR 3:PLOT 27,B:PL 

OT 28,B:PL0T 8,B:PL0T 9,B 

F=0:IF D>31 THEN D=D-32 : F=F+ 1 : CO 

LOR 2:PL0T 29,B:PL0T 10,B:PLOT 1 

1,B: A (A, 2) =32: A (A,B)=A(A,8)+A(A, 

2) 

IF D>15 THEN D=D- 1 6 : F=F+ 1 : COLOR 

IsPLOT 30,B:PLOT 10,B:PLOT 11, B: 

A(A„3)=16:A(A,B)=A<A,8)+A<a;3) 



500 

510 

520 

530 
540 

550 

560 

570 
5B0 
590 

600 
610 



620 
630 



640 
650 

660 

670 

675 

680 
690 



IF F>1 
OT 30, 

F = 0: IF 
R 2: PL 
B: A ( A, 
IF D>3 
PLOT 3 
A, 5) =4 
IF F > 1 
OT 32, 
F = 0: IF 
R 2: PL 
B: A ( A, 
IF D>0 
4, B: PL 
: A ( A, 8 
IF F > 1 
OT 34, 
NEXT A 
REM 
BOSUB 
y ped c 
"will 
MAL" 
POSITI 

f or m 
D=l :PO 
OBUB 3 
E 85,0 
27) 

POKE 5 
FOR D = 

D: POK 
(560) : 
A=PEEK 
F PEEK 
IF PEE 

THEN 

710 
GET #3 

340: C 
7) : GOB 
, 64: GO 
? CHR$ 
POKE 8 
IF PEE 
IF PEE 
POKE 5 
84) *4+ 
3 ) = " { 4 



THEN 
B: PLO 

D>7 
OT 31 
4) =B: 

THEN 
2, B:P 
: A ( A, 

THEN 
B: PLO 

D>1 
OT 33 
6) =2: 

THEN 
OT 14 
) =A < A 

THEN 
B: PLO 

GOSU 



COL 
T 10 

THEN 
, B: P 
A (A, 

D = D 
LOT 
8) =A 

COL 
T 12 
THEN 
, B: P 
A (A, 

F = F 
, B: P 
, 8) + 

COL 
T 14 
B 14 



OR 
,B: 

D = 
LOT 
8) = 
-4: 
12, 
(A, 
OR 
, B: 

D = 
LOT 
8) = 
+ 1 : 
LOT 
A < A 
OR 
,B: 
0: R 



3: PLOT 
PLOT 11 
D-8: F=F 

12, B:P 
A(A, 8) + 
F=F+1 : C 
B: PLOT 
8) +A (A, 
3: PLOT 
PLOT 13 
D-2: F=F 

14, B: P 
A (A, 8) + 
COLOR 1 

15, B: A 
,7) 

3: PLOT 
PLOT 15 
ETURN 



29, B: PL 
,B 

+1 : COLO 

LOT 13, 

A (A, 4) 

OLOR 1 : 

13, B: A ( 

5) 

31 , B: PL 

B 
+1 : CDLO 
LOT 15, 
A (A, 6) 
:PLOT 3 
(A, 7) =1 



33, B: PL 



TEST CHRRRCTER3 



110:POSITION 5,0:? "Your t 
haracters" : POSITION 7,1:7 
appear below. -C 5 SPACES } NOR 



l:l^i'J:i:B 



ON 2,2:7 "- Press 

e n u — " ; 

KE 764, 255: CLEAR4*=ZER0t: G 

40:GOSUB 160: POKE 84,0: POK 

: POKE 53259, 1 : A*=ZERO$ ( 1 , 1 

3251 , 36: A* (86, 89) =" < 4 C> " 
TO 5:P0KE DL+D+23 , 4 : NE X T 
E DL+29, 65: POKE DL+30,PEEK 
POKE DL+31 , PEEK (561 ) 

(633): ON A<15 GOSUB 1500:1 

(764) =255 THEN 640 
K(764>=39 OR PEEK ( 764 ) = 1 03 
A=PEEK (84) : B=PEEK (85) : SOTO 



LE 
UB 
TO 
(C 
4, 
K ( 
K ( 

86 
C 



HR:IF CHR=155 THEN GOSUB 
AR4*=ZERO*:A*=ZERO*(l, 12 

140: POKE 694,0: POKE 702 

750 
HR) ;: IF PEEK (84) <0 THEN 

cr 
U 

85)>38 THEN POKE 85,0 
84) >5 THEN POKE 84,0 
51 , PEEK (85) *4+36: fl=PEEK ( 
A*=ZER0*<1, 127) : A* ( A, A+ 
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700 
710 

720 

730 

740 

750 

760 



770 
780 
790 



800 

810 

811 

812 
813 



814 
820 



8 30 

840 
850 
860 



870 



POKE 764, 255: SOTO 640 

POKE 69 4, 128* (PEEK (694) =0 ) : POKE 

53279, 0: BOSUB 140 

IF PEEK (694) =123 THEN POSITION 2 

9,i-.? ■■ M as s m mm" 

IF PEEK(694)=0 THEN POSITION 29, 

Is? " NORMAL 

POKE 764, 255: BOSUB 160:POKE 84, A 

:POKE 85,B:B0T0 640 

BOSUB 760: BOSUB 140: POKE 53259,3 

: RETURN 

POKE DL+23,4:P0KE DL+24,4:P0KE 

L+25,5:P0KE DL+26,5:P0KE DL+27 



D 
6 

5:P0KE DL+28, PEEK (560) : POKE DL+2 

9, PEEK (561 ) 

RETURN 

rem ■ggg gag aaaaaoB ebb m * 

FILE$="1 nad" : BOSUB 800:TRAP 890: 

OPEN #1 , 4, 0, FILE*: POKE 850,7:SOS 

UB 870: RETURN 

POKE 752,0:BOSUB 140:BOSUB 110:P 

OSITION 2,0:7 "Enter name to " ; F 

ILE*;". (1-8 characters)" 

POSITION 16,1: INPUT NAME*:POKE 7 

52,1: IF NAME*="" THEN POP : RETUR 

N 

FOR A=l TO LEN (NAME*) : IF NAME*(A 

,A)=":" THEN NAME*=NAME* ( A+ 1 , LEN 

(NAME*)):POP : SOTO 811 

IF NAME* (A, A) =" . " THEN NAME*=NAM 

E* ( 1 , A-l ) : POP :BOTO 811 

IF ASC (NAME* (A, A) )<65 OR ASC(NAM 

E*(A,A))>90 THEN POP : POP : RETUR 

N 

NEXT A 

FILE*="D: " : REM * Cassette users 

€3 SPACES3 shcul d replace "D:" wi 

th "C:". TheC3 SPACES > rema i n i n g 

file name is irrelevant. 
FILE* (LEN (FILE*) +1) =NAME*: FILE* ( 
LEN(FILE*)+l)=".SET" 
BOSUB 110:RETURN 

rem tMESSHSininssaMiMsMMM 

FILE*="save" : BOSUB 800:TRAP 890: 
OPEN #1 , 8, 0, FILE*: POKE 850,11:60 
SUB 870: RETURN 

POKE 852,0:POKE 853 , CHBASE / 256 : P 
OKE 856,0: POKE 857, 4: POKE 756, CH 
BASE/256: A=USR(1 555) 



380 C 

9 
890 G 

^> 

c 
900 I 

r 
910 I 

t 
920 ? 

B 
930 A 

5 
940 A 
950 I 

960 I 

970 I 
Y 

980 I 
Y 

990 P 
1 

1000 

1010 

1020 



1030 
1040 
1050 
1060 

1070 
1080 
1090 
1 100 
1110 
1115 
1 120 
1 130 
1 140 
1 150 
1 160 
1 170 
1 180 



LOSE #1:TRAP 32767: POKE 54286,1 

2: POKE 756, 224: RETURN 

OSUB 110:POSITION 1,0:7 CHRt(25 

);"An ERROR " ; PEEK. ( 1 95 ) ; " has a 

curred. " 

F PEEK ( 195) =165 THEN ? "Imprope 

-file name — try again." 
F PEEK < 195) =170 THEN 7 "File no 

-found — try again." 

"Press any key to continue.";: 
ET #3, KEY: GOTO 880 
=STICK(1):IF A<>15 THEN GOSUB 1 

00:rem mnxEswssm 

=STICK(0) :B=STRIG(0) 

F A=7 THEN X=X+8:IF X >24 THEN X 



X=X-8: IF 



11 THEN 



X<0 THEN X 



THEN Y=Y-4: IF Y<20 THEN 



THEN Y=Y+4:IF Y>48 THEN 



X+56:A$=0$<81-Y,81-Y+ 



THEN GOSUB 50 
i THEN GOSUB 10 



F A = 

24 

F A=14 

= 48 

F A=13 

= 20 

OKE 53251. 

28) 

IF B=l AND AOi! 

IF PEEK (764) 02! 

50 

IF PEEK (53279) =5 THEN FOR D=0 T 

3:P0KE DL+D+19, 4* (PEEK (DL+D+1 

9)=2)+2*(PEEK(DL+D+19)=4) : NEXT 

D 

IF B=0 THEN GOSUB 210 

GOTO 930 

rem ijaajmaaaKaaaaai 

GOSUB 140: GET #3, KEY: IF KEY>127 

THEN KEY=KEY-128: POKE 694,0 
A=KEY:A=A+64*(A<32)-32*(A>95) 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



POKE 
REM 



A = 76 
A = 83 
A = 69 
A = 82 
A = 67 
A = 84 
A = 77 
KEY=49 
KEY=50 
KEY=51 
764, 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
OR A = 3 
THEN 



GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 

THEN 
C=l 



780: GOSUB 
850: GOSUB 
290 
330 
1630 

580: GOSUB 
GOSUB 60 



60 
60 



60 



THEN C=2 

THEN C=3 

!55: RETURN 



IHITILIZflTIOM 



89 



1 190 

1200 

1210 

1220 

1230 
1240 

1260 

1270 

1280 

1290 
1300 
1310 
1320 



1330 
1340 



1350 



RAMTOP= 
TOP: POK 
HR=65: O 
POKE 10 
B) *256: 
APHICS 
POKE 20 
3: 7 
SUB 350 
FOR A=0 
A, B: NEX 
6 

VT=PEEK 
EEK ( 140 



PEEK < 106) -12: POKE 89, RAM 
E 88,0:7 CHR* ( 125) : C=l : C 
PEN #3,4,0, " K: " 
6,RAMT0P:CHBASE=(RAMT0P+ 
PMBASE= (RAMTOP+4) »256: GR 
0: POKE 710, 176 
3, CHBASE/256: POSITION 9, 

: GO 



INITIALIZING PROC.RR 



TO 24:READ B:POKE 1536 + 
T A:POKE 512,0:POKE 513, 

<134)+256*PEEK(135) :AT=P 
) +256*PEEK ( 141 ) 

X=CHBASE-AT: Y=57344-AT: GOSUB 13 
20. 00005>L1 149 POKE VT+2,X2:P0K 
E VT+3,Xl:POKE VT+4,1:P0KE VT + 5 
,4:P0KE VT+6,1:P0KE VT+7,4 
POKE VT+10, Y2: POKE VT+ll,Yl:POK 
E VT+12, l:POKE VT+13,4:P0KE VT + 
14,l:POKE VT+15 , 4: A$=0$ 
X=PMBASE+896-AT:Y=PMBASE-AT:G0S 
UB 1320:POKE VT+2,X2:P0KE VT+3, 
Xl:POKE VT+10, Y2: POKE VT+11.Y1 



X=PEEK ( 
Y=RAMTO 

VT+18, 
+ 26, Y 
POKE VT 
EK (89) - 
, X2: POK 
X=PEEK ( 
GOSUB 1 
T+43, XI 
FOR A=4 

3: READ 
NEXT A: 
X 1 = INT ( 
) : Y 1 = I N 
1 ) ) : RET 



88)+256*PEEK<89)+100-AT: 
P*256-AT: GOSUB 1320:POKE 
X2:P0KE VT+19, X 1 : POKE VT 

+27, Yl: X=PEEK(88) +256*PE 
AT: GOSUB 1320: POKE VT+34 
E VT+35, X 1 

88)+256*PEEK(89)+330-AT: 
320: POKE VT+42 , X2 : POKE V 

TO 44 STEP 8: FOR B=0 TO 
D:POKE VT+A+B, D: NEXT B: 

GOTO 1330 

X/256) : X2=INT(X-<256*X1) 

T(Y/256) :Y2=INT!Y-(256*Y 

URN 



PLHYER/MI5SILE GRAPHICS 



REM 

POKE 54279, PMBASE/256: FOR D=0 T 

O 2: POKE 704+D,6:NEXT D:POKE 70 

7, 68 

FOR D=53248 TO 53255: READ X:POK 

E D,X:NEXT D:FOR D=53256 TO 532 

58: POKE D,1:NEXT D:POKE 53259,3 

: X = 
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1360 FOR A = TO 256 STEP 128: FOR D=2 

TO 52 5TEP 4: POKE PMBASE+512+ 

A+D,21:NEXT DrNEXT A 
1370 FOR D=22 TO 50 STEP 4: POKE PMBA 

5E+384+D, 85: NEXT D:POKE 623,17 
1380 Y=20:FOR D=0 TO 3: POKE PMBASE+D 

+Y+896, 3: NEXT D:FOR D=0 TO 3:P0 

KE PMBASE+D+80, 3: NEXT D 
1390 rem ■BacOMMMIMlESBaEEMEIgagaai 
1400 GRAPHICS 0:POKE 752,1: POKE 711, 

68:DL=PEEK(560)+256*PEEK(561):H 

0ME=PEEK(DL+4)+256*PEEK(DL+5):P 

OKE DL+3,72 
1410 FOR D=0 TO 8: POKE DL+D+6 , 8 : NE X T 
D:POKE DL+1B, 144:QQSUB 760:POK 

E 54286,192 
142 BOSUB 15 0:POSITION 4 , : P K E 766 

, i! FOR F=0 TO 3: FOR D = TO 31:? 
CHR$ (D+32*F) ; : NEXT Ds? :NEXT F 

:POKE 766,0 
1430 POKE 559, 46: POKE 53277 , 3 : BOSUB 

390: BOSUB 140: BOSUB 60: SOTO 930 
1440 DATA 72, 138, 72, 152, 72, 165, 203, 1 

41, 10,212, 141,9,212, 104, 168, 104 

, 170, 10 4, 64, 104, 162, 16, 7 6, 86, 22 

8 
1450 DATA 128,0,128,0,128,1,128,1,12 

0,0, 120,0, 160,0, 160,0, 100,0, 100 

,0, 16 0,0, 160, 
1460 DATA 149,161,173,56,83,91,99,10 

/ 

150 B=STRIG(1)*4:D=PEEK(53279)=3: IF 

A=7 THEN A=12 
1510 A=A-10:IF A<0 THEN RETURN 
1520 A=A+B:ON A SOTO 1530,1540,1550, 
1560, 15 70, 1580, 1590, 1610: RETURN 



1530 POKE 712, PEEK (7 12 ) -2+256* ( PEEK ( 

712X2) : RETURN 
1540 POKE 712, PEEK (712) +2-256* (PEEK ( 

712) >252) : RETURN 
1550 POKE 710, PEEK (710) -2+256* (PEEK ( 

710X2) : RETURN 
1560 POKE 710, PEEK (710) +2-256* (PEEK ( 

710) >252) : RETURN 
1570 POKE 709, PEEK ( 709 ) -2 + 256* (PEEK ( 

709) < 2) : RETURN 
1580 POKE 709, PEEK (709) +2-256* (PEEK ( 

709) >252) : RETURN 
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1590 IF NOT D THEN POKE 708,PEEK(70 
8) -2+256* (PEEK (708) <2) :RETURN 

1600 POKE 71 1 , PEEK (71 1 > -2 + 256* (PEEK ( 
710X2) : RETURN 

1610 IF NOT D THEN POKE 708,PEEK(70 
8) +2-256* (PEEK (708) >252) : RETURN 

1620 POKE 71 1, PEEK (71 1 ) +2-256* (PEEK ( 

711) >252) : RETURN 
1630 BOSUB 110:GOSUB 340:POSITION 8, 

Is? "Select character to copy" 
1640 KEY=CHR:GET »3,CHR:GDSUB 390 
1650 FOR A=0 TO 7:P0KE CHBASE+KEY*8+ 

A, PEEK (CHBASE+CHR*B+A) : NEXT A:G 

OSUB 140:GOTO 70 
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Animation by Page 
Flipping 



David N. Plotkin 



A special animation technique, storing several predrawn screens in 
memory at once, summons them to create movement, flashing "frames" 
on the screen as movie projectors do. This article includes a simple game, 
"Inferno," to show how it's done. 

Have you ever wished you could make a picture simply appear on 
the screen, without drawing it line by line in front of the user? Or 
perhaps you have an animation sequence, and drawing each new 
"frame"— erasing the parts you don't need, and PLOTting and 
DRAWTOing the new parts— takes too long and ruins the 
animated nature of the program. Well, the Atari computers do 
provide a way to draw a picture in the memory while the user is 
looking at a different picture, and then instantly flash the 
completed picture on the screen. By drawing several pictures 
beforehand in memory, and then flashing them on the screen one 
by one in sequence, you can easily create animation for your 
BASIC program. 

The key to page flipping is that you can write to an area of 
memory that you are not displaying on the screen. When you 
then tell the computer to display the area of memory you have 
previously written to, the picture drawn in that area of memory 
simply appears on the screen. 

Whenever you issue a GRAPHICS command, the computer 
creates what is called a display list. This is just information telling 
the computer how to display data on the screen. The memory 
address of the display list is stored at locations 560 and 561 as: 

DL Address = PEEK (560) + 256* PEEK (561) 

The fifth and sixth numbers of the display list (DL address + 4 and 
DL address + 5) contain the address of screen memory, that is, the 
address of the first byte of data to be displayed on the screen. 
An entirely different set of memory locations contains the 
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address of write memory, the memory address where the first byte 
of data is to be written from execution of keyboard commands 
and/or a running program: 

Write Memory address = PEEK (88) + 256* PEEK (89) 

Thus, when you type in a PLOT or DRAWTO command, the 
shape is written into computer memory at the location starting at 
the write memory address. The reason you normally see on the 
screen what has been written into write memory is that the 
address of write memory and the address of screen memory (or 
display memory) normally have the same value. To flip pages, 
then, you follow these steps: 

1. POKE a value into locations 88 and 89 (write memory) 
which correspond to an empty, protected area of memory (more 
on this in a moment). 

2. Execute PRINT, PLOT, DRAWTO, SETCOLOR, etc., 
commands, as usual, to draw the picture you want, using stand- 
ard cursor limits. You will not see your picture on the screen. 

3. Set DL address + 4 and DL address + 5 equal to the value 
in locations 88 and 89, respectively Your picture will flash onto 
the screen. 

Animating is just an extension of this method. You follow 
steps 1 and 2 listed above over and over, each time creating in 
memory a new "frame" of the animation. You have to keep track 
of where each new frame begins (the value of memory locations 
88 and 89 for each screen) and make sure the screens don't 
overlap in memory. To prevent screens from overlapping, make 
sure that each screen starts further away in memory from the 
previous screen than the values listed below: 

GRAPHICS - 960 bytes GRAPHICS 5 - 960 bytes 

GRAPHICS 1 - 480 bytes GRAPHICS 6 - 1920 bytes 

GRAPHICS 2 - 240 bytes GRAPHICS 7 - 3840 bytes 

GRAPHICS 3 - 240 bytes GRAPHICS 8 - 7680 bytes 
GRAPHICS 4 -480 bytes 

These values are just the amount of memory used to store 
one full screen of data. Remember that a change of the value of 
either location 89 or DL address + 5 by one is equal to 256 bytes, 
and that locations 88 and DL address + 4 cannot exceed 255. 
You'll need to do some math so that whenever location 88 exceeds 
255, you subtract 256 from it and add one to location 89. Similarly, 
if location 88 goes below zero, then you add 256 to it and subtract 
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one from location 89. These same rules apply for DL address + 4 
or DL address + 5. 

A couple of other pointers before we get to the fun part. 
Player/missile graphics are the best way to handle user- 
manipulated shapes when animating using page flipping. P/M 
graphics are not affected by the display memory or write memory 
manipulations. Assuming you left the write memory address 
pointing to one of your frames (usually the last one you drew), 
any further BASIC graphics or text commands during the 
program run will flash on the screen only when the single frame 
to which the command was written is put on the screen. To avoid 
this, you have to keep changing the write memory to match the 
screen memory which you are changing to "flip pages," and 
create the animation effect. This takes time and slows down 
program execution. To produce the P/M graphics for the included 
program, I've used Eric Stoltman's machine language utility from 
the article "Extending Player/Missile Graphics" (COMPUTEI's First 
Book of Atari Graphics) with a new wrinkle. 

To move vertically (see lines 150-170), I first read zeros into 
the P/M memory, increment the Y coordinate, and then read the 
correct shape back into memory. This occurs quickly and works 
well. One last thing — to get the empty, protected memory to store 
your pictures, step back RAMTOP as many pages as you need 
and read zeros into the protected memory to clear it. See program 
lines 900-910 for details. 

"Inferno" demonstrates page-flipping animation. A large 
skyscraper is burning fiercely, and the only escape for the 20 occu- 
pants is the roof. It's up to you to pilot your helicopter to a safe 
landing on the roof, navigating through the flames, which move 
faster as the fire progresses. The flames aren't as bad on the left 
side of the building, but that is where the fire engine is coming, so 
you can't land there. A flashing red dot appears in the upper left 
of the screen for each person you successfully rescue. When 
you've lost three helicopters or rescued all 20 people, just press 
the fire button to play again. 
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Variables 

DIF: Measures difficulty. As DIF increases, flames move 

faster 
F: Helicopter facing flag; = 1 when copter faces right; 

= - 1 when copter faces left 
P: Person flag; = 1 when person on roof; = when 

person rescued 
NUM: Number of people rescued 

H: Number of helicopters left 

DL4: Low byte of screen memory 

DL5: High byte of screen memory 

ST: STICK (0) 

PB: Start of P/M graphics memory 

X0,Y0: Player coordinates 

X1,Y1: Player 1 coordinates 

DL: Address of display list 

RT: RAMTOP 

A, I, N, M: Loop variables 



Program Listing 

LINE 

10 

20-80 



110-145 

150-170 

180 

190 

210 

230-250 

260-320 

330-370 



800-890 
900-980 
1000-1370 
1500-1550 



Call initializing subroutines, initialize variables 

Main Program Loop — set display memory address 

and jump to rescue subroutine 

Move helicopter horizontally, keep it from going 

offscreen, set direction of helicopter 

Move helicopter vertically 

Test for helicopter landing on roof 

Test for collision of helicopter with playing field 

Test for dropping off passenger 

Person runs to helicopter after it lands on roof 

Destruction of helicopter, test for all helicopters 

destroyed 

Passenger leaves helicopter after it lands. If all 

people are rescued, restart game. Increase difficulty 

as fire progresses 

POKE machine language routine 

Set up pages 

Flip pages 

Introduction 
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Inferno 
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GOSUB 1500:DIF=0: F = -l :P=1 : VEL=2: N 
UM=0: H=3: GOSUB 900:GOSUB 800:SDUN 
D 1 , 100, 4, 2 

RT:GOSUB 100 

RT+4:GOSUB 100 

RT+B:GQSUB 100 

RT+12:GOSUB 100 

RT+8:GOSUB 100 

RT+4:GOSUB 100 



20 


POKE 


DL5 


30 


POKE 


DL5 


40 


POKE 


DL5 


50 


POKE 


DL5 


60 


POKE 


DL5 


70 


POKE 


DL5 


80 


GOTO 


20 


100 FOR 


N=l 



1 10 

120 
130 



140 



170 



180 





185 




190 




210 




220 




230 


^ 


240 


250 


K* 


260 



!70 



TO 5-DIF: ST=STICK (0) : IF 
FOR WAIT=1 TO 15:NEXT 
185 
<ST=7)*(X0<201)-VEL*(S 



145 


POK 


150 


IF 




Y0, 


160 


IF 




Y0, 



ST=16 THEN 
WAIT: GOTO 
X0=X0+VEL* 
T=l 1 ) * (X0>47) 
IF X0<48 THEN X0=48 

IF ST=7 AND F=-l THEN F=1:D=USR( 
1536, PB + 512 + Y0, 268) : FOR W= 1 TO 2 
0:NEXT W: D=USR ( 1536, PE+512+Y0, 26 
0) : X0=X0-2 

IF ST=11 AND F=l THEN F=-1:D=USR 
( 1536, PB+512+Y0, 268) : FOR W=l TO 
20:NEXT W : D=OSR ( 1 536 , PB+5 1 2+Y0 , 2 
76) : X0=X0+2 

E 53248, X0 

ST=14 THEN D=OSR < 1536, PB+512+ 

292) :Y0=Y0-2*(Y0>20) 

ST=13 THEN D=USR ( 1536, PB+512+ 

292) :Y0=Y0+2* (Y0<102) 
D=USR(1536,PB+512+Y0,260*<F=l)+2 
76* (F = -l ) ) 
IF X0>112 AND X0<138 AND Y0=28 A 



THEN GOSUB 



;0 




p = 



THEN 
THEN 



GOSUB 
GOSUB 



260 
330 



■X0):IF N = THEN GO 



STEP N:POKE 
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ND P=l 
NEXT N 

IF PEEK(53252) 
IF Y0=102 AND 
RETURN 

N= ( X0>X 1 ) - ( X 1 
TO 250 

FOR M=X1 TO X0 
, M: NEXT M: X 1=M 
D=USR < 1536, PB +640+ Yl 
TURN 

POKE 53278, 
0, 300) : FOR 
OKE 704, W 

POKE PB+512+Y0+INT(RND(0)*7),PEE 
K (53770) :SOUND 0,200,8,W/10:NEXT 
W:SOUND 0,0,0,0:POKE 704,250 



292) : P=0: RE 



1 : D = USR (1536,PB + 512 + Y 
W=120 TO 40 STEP -1:P 
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!80 



190 



291 

292 
295 

300 



310 

320 
330 
340 

345 

350 

360 
370 
800 

810 

820 
830 

840 



850 
860 



875 
880 



890 



0,0:? " G 
: POSITION 



D = USR ( 1536, PB+512+Y0, 292) : H=H-1 : 

POSITION 29,0:7 H ; : I F H< >0 THEN 

GOTO 300 

POKE DL5, RT+12: POSITION 

AME OVER-RESCUED ";NUM; 

20,0:7 " PRESS FIRE " ; 
IF STRIG(0)=1 THEN 291 
POSITION 0,0:7 "<:37 SPACES}"; 
H=3:C0L0R : NUM=0 : D I F=0 : VEL=2 : GO 
SUB 970 

POKE 53278, 1 : X0=180: Y0=20: POKE 5 
3248, X0: D = USR ( 1536, PB+512+Y0.276 
) : F=-l 

IF P=0 THEN Xl=120: Yl=28: POKE 53 
249,Xl:D=USR(1536,PB+640+Yl,284) 
: P=l 
RETURN 

D=USR( 1536, PB+640+Y0, 284) 
FOR M=X0 TO 210: POKE 53249, M:NEX 
T M: NUM = NUM+1 : D = USR ( 1536, PB + 640 + 
Y0,292):IF NUM=20 THEN GOTO 370 
POSITION 9,0:7 NUM;:IF NUM/4=INT 
(NUM/4) THEN DIF=DIF+1:IF NUM/8= 
INT(NUM/8) THEN VEL=VEL+2 
P=l:POKE 53249, X1:D=USR(1536,PB+ 
640+Y1 , 284) 
RETURN 

D=USR ( 1536, PB+512+Y0, 292) : GOTO 290 
FOR A=1536 TO 1560:READ 
, I : NEXT A 

DATA 104,104,133,204,104,133, 
, 104, 133, 207, 104, 133, 206, 160, 0, 1 
77, 206, 145, 203, 200, 192, 8, 208, 247, 96 
FOR A = 260 TO 307:READ I : POKE A, I 



I: POKE A 



>03 



NEXT A 

DATA 0,31,4,143,249,15,2,63,0,12 

7, 8, 62, 34, 62, 20, 62, 0, 248, 32, 24 1 , 

159, 240, 32, 252 

DATA 0,0,24,24,126,24,36,102,0,0 

,0,0, 0,0, 0,0, 68, 186, 84, 130, 255, 1 

30, 68, 186 

POKE 752,1:P0KE 559,46 

A=PEEK ( 106) -4: POKE 54279, A: POKE 

53277,3:PB=256*A:X0=180:Y0=20:X1 

=120: Yl=28 

POKE 704, 250: POKE 705,80 
POKE 53248, X0:D=USR(1536,PB+512+ 
Y0,276) : POKE 53249, X 1 : D = USR ( 1 536 
, PB+640+Y1 , 284) 
RETURN 
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900 RT=PEEK ( 106) -16: GRAPHICS 5+16:PD 
KE 88,0: POKE 89.RT-4:? #6;CHR*(1 
25):POKE 106.RT: GRAPHICS 5+16 
910 POKE 559,0 
915 SETCOLOR 4 , 7 , 4 : SETCOLOR 1,12,8:5 

ETCOLOR 2,3,3 
920 PA6E=0:POKE 88,0:POKE 89,RT:BDSU 

B 1000 
930 PAGE=l:POKE 88,0: POKE 89,RT+4:G0 

SUB 1000 
940 PAGE=2:P0KE 88,0:POKE 89,RT+8:GO 

SUB 1000 
950 PAGE=3:P0KE 88,0:POKE 89,RT+12:G 

OSUB 1000 
960 DL=PEEK(560)+256*PEEK(561) :DL4=D 
L+4: DL5=DL+5: POKE DL4,0:POKE DL5 
,RT+4:POKE 559,34 
970 POKE 752,1: POKE DL+3,66:P0KE 87, 
0:POSITION 0,0:? "RESCUED : " ; NUM 
;:POSITION 20,0:? "COPTERS :";H; 
980 RETURN 
1000 COLOR 1 : FOR X=32 TO 47:PLOT X,l 

0:DRAWTO X,47:NEXT X 
1010 COLOR 2:F0R X=33 TO 45 STEP 4:F 
OR Y=13 TO 41 STEP 4:PLOT X,Y:P 
LOT X+l,Y:PLOT X,Y+l:PLOT X+1,Y 
+1:NEXT Y:NEXT X 
1020 PLOT 39,45:DRAWT0 39,47:PL0T 40 
,45:DRAWT0 40,47:PLOT 0,47:DRAW 
TO 31,47:PL0T 48,47:DRAWTO 79,4 
7 
1030 IF PAGE=1 OR PAGE=2 OR PAGE=3 T 

HEN GOTO 1100 
1040 COLOR 3:FOR Y=45 TO 46:PLOT 1,Y 
:DRAWTO 8,Y:NEXT Y:PLOT 2,47:PL 
OT 7,47:C0L0R 0:PLOT 5,45 
1050 RETURN 

1100 COLOR 3:PL0T 48,13:PLOT 48,14:P 
LOT 49,12:PLOT 48,26:PLOT 48,27 
:PLOT 49,25:PL0T 48,36:PLOT 48, 
37:PL0T 49,35 
1110 PLOT 31,19:DRAWT0 31,21:PLOT 30 
,18:PL0T 31,31:DRAWT0 31,33:PLO 
T 30,30 
1120 IF PAGE=2 OR PAGE=3 THEN GOTO 1 

200 
1130 FOR Y=45 TO 46:PL0T 14,Y:DRAWT0 
21,Y:NEXT Y:PLOT 15,47:PLOT 20 
,47:C0L0R 0:PLOT 18,45 
1140 RETURN 
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1200 



1210 



COLOR 3:PLOT 48,11:PL0T 48,12:P 
LOT 49,11:PL0T 49,10:PLOT 50,10 
:PLOT 50,9 

PLOT 48,24:PL0T 48,25:PL0T 49,2 
4:PLOT 49,23:PL0T 50,23:PLOT 50 



1220 PLOT 48,35:PL0T 48,34:PL0T 49,3 

4:PL0T 49,33:PL0T 50,33:PLOT 50 

,32 
1230 PLOT 31,40:PLOT 31,41:PL0T 31,3 

0:PLOT 31,29:PL0T 30,29:DRAWTO 

30,27:PLOT 29,27:PLOT 29,26 
1240 PLOT 31,18:PLOT 31, 17:PLDT 30,3 

9:PL0T 30,17:DRAWTO 30,15:PLOT 

29, 15: PLOT 29, 14 
1250 IF PAGE=3 THEN GOTO 1300 
1260 FOR Y=45 TO 46: PLOT 24, Y: DRAWTO 
31,Y:NEXT Y:PLOT 25,47:PL0T 30 

,47:COLOR : PLOT 28,45 
1270 RETURN 
1300 COLOR 3:PL0T 49,9:DRAWT0 49,3:P 

LOT 50,8:DRAWTO 50,5:PLOT 51,7: 

DRAWTO 51,9 
1310 PLOT 49,22:PL0T 49,21:PL0T 50,2 

l:DRAWTO 50,19:PLOT 51,20:DRAWT 

O 51 , 22 
1320 PLOT 49,32:PL0T 49,31:PL0T 50,3 

l:DRAWTO 50,29:PLOT 51,30:DRAWT 

O 51 , 32 
1330 PLOT 30,38:PLOT 30,37:PLOT 29,3 

8:DRAWT0 29,35 
1340 PLOT 30,26:DRAWTO 30,24:PLOT 29 

,25:DRAWT0 29,22 
1350 PLOT 30,14:DRAWTO 30,12:PLOT 29 

, 13: DRAWTO 29, 10 
1360 COLOR 3:FOR Y=45 TO 46:PLOT 1,Y 

:DRAWTO 8,Y:NEXT Y:PLDT 2,47:PL 

OT 7,47:C0L0R 0:PLOT 5,45 
1370 RETURN 
1500 GRAPHICS 2+16: POSITION 0,1:? #6 

; "COMPUTE PUBLICATIONS" :POSITIO 

N 6,3:? #6; "HS^BIIH" 
1510 POSITION 6,6:? # 6 ; " EG323BIE " 
1530 FOR SND=20 TO 120 STEP 0.2:SOUN 

D 0, SND, 8, 6: POKE 712,SND:NEXT S 

ND 
1540 FOR VOL=6 TO STEP -0.1: SOUND 

0, SND, 8, VOL: NEXT VOL:POKE 712,0 
1550 RETURN 
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Player/Missile 
Graphics Simplified 



Staffan Sandberg 



You've seen the wonderful things the Atari can do with player/missile 

graphics, but until now you've either had to settle for slow-moving 
wobbles or learn machine language. Here is an overlay method which is 
simple to use and results in extremely fast animation of up to five players. 

In the overlay method we will design overlays, or patterns that we 
can place on the screen. We can create as many patterns as we 
want and use them as often as we want. Each overlay is eight dots 
wide and anything from one to 128 dots high. The overlay allows 
specified dots to be lit up on the screen. When we want an object 
to appear to be moving, we place one of the overlays on the screen 
by specifying its X and Y coordinates. We then give it new X and 
Y coordinates, and it appears to move. This process is very fast, so 
the object appears to move quite quickly. These overlays are 
totally separate from player/missile graphics. It is the combination 
of the overlays and player/missile graphics that allows us the 
freedom of movement of the overlay method. 
To use overlays, just follow these steps: 

Step 1: Decide how many players you wish to use and set 
aside enough memory to hold them. That is, what is the 
maximum number of objects you want on the screen at one time? 
You can have up to five. We must give each one a name and set 
aside 128 spaces for it because each player is potentially 128 dots 
high. We do this by DIMensioning the space: 

10 DIM PM1* < 128) , PM2* ( 128) , PM3* < 128) 

The DIMensioning must be the first thing the computer sees 
when it is turned on, so before you start programming, turn off 
the computer and turn it back on. This is necessary because as the 
computer constructs a variable table, the variables are stored in 
the order that they are entered. The variable table is not cleared by 
typing NEW. We want these variables at the beginning of the table 
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so we can find them easily later. If they are not the first thing that 
the computer sees, the method will not work. 

Step 2: Design the overlays or patterns that you wish to use. 
Remember, you can create as many overlays as you wish. They 
are stored in strings (ALIENS, SHIPS, etc.), so you must give each 
overlay a name and DIMension its size. When deciding the size of 
each overlay, keep the following questions in mind: 

1. How tall do you want to make your overlay? 

2. What directions do you want to move your player? 

3. How fast do you want to move your players? 

You don't need to worry about the width of the overlay. But 
you must decide how many dots high you wish to make an 
overlay. It can be up to 128 dots in height (an average spaceship 
might be six dots high). If you are going to be moving your 
players down the screen , you must leave blank spaces to cover up 
the old overlay, and you must take into account the speed at 
which your player will move. The speed is measured in Dots Per 
Move (DPM). If your players will be moving at a top speed of 
three DPM up and down the screen, then you need to leave three 
spaces above and three spaces below. To help decide the size to be 
DIMensioned for each overlay use the formula: 

SIZE = height of overlay + DPM up + DPM down 

SHIP$ and ALIEN$ Examples 

In our example we will have one ship which we'll call SHIPS, with 
a height of six moving up and down at the speed of five DPM, 
and another ship which we'll call ALIENS, with a height of eight 
moving neither up nor down. 

20 SIZE1=16: SIZE2=8 

30 DIM SHIP* (SIZE1 ), ALIEN* (SI ZE2) 

We also want a blank overlay that we use to erase the player 
from the screen quickly. We'll call this overlay CLEARS. It should 
be 128 dots high so that it can erase anything on the 128 dot high 
player. 

40 DIM CLEAR* < 128) 

Now you must create the overlays line by line. Each line or 
row is made up of dots or "boxes." Each box is numbered from 
right to left 1, 2, 4, 8, 16, 32, 64, and 128. 
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128 


64 


32 


16 


8 


4 


2 


1 



To create the overlays, you must decide which boxes you 
want filled or lit up on the screen. You then add the value of each 
filled box for each row (see Figures 1 and 2). 



Figure 1 . The Ship 



Figure 2. The Alien 
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60 
126 
219 
126 

36 
36 
66 
129 



Now that you have the totals for each row, you must put 
them in the string that you have DIMensioned for them. This is 
done in a short loop such as the one below. 

50 FOR ROWS=l TO SIZE1 

60 READ DOTS 

70 SHIP* (ROWS, ROWS) =CHR* (DOTS) 

80 NEXT ROWS 

90 DATA 0,0,0,0,0 

100 DATA 16,56,56,124,108,68 

110 DATA 0,0,0,0,0 

120 FOR ROWS=l TO SIZE2 

130 READ DOTS 
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140 ALIEN* (ROWS, ROWS) =CHR$ (DOTS) 

150 NEXT ROWS 

160 DATA 60,126,219,126,36,36,66,129 

You need a loop for each overlay that you have. 

You also need to create the blank overlay, CLEARS, by 
entering 128 blank lines into CLEARS. 

170 FOR ROWS=l TO 128 

180 CLEAR* (ROWS, ROWS) =CHR$ (0) 

190 NEXT ROWS 

Step 3: Tell the computer that you are going to be using 
player/missile graphics with overlay method by entering the 
following lines, substituting a value for NUMBEROFPLAYERS. 

200 A=4* ( INT (PEEK (742) /4) -1 ) 

210 POKE 54279, A 

220 VSA=256*PEEK ( 135) +PEEK ( 134) 

230 BOA=256*PEEK ( 141 ) +PEEK ( 140) 

240 PM=256*A+512 

250 DISP=PM-BOA 

260 ADD=2 

270 FOR T=l TO NUMBEROFPLAYERS 

280 PMHIGH=INT (DISP/256) 

290 PML0W=DISP-256*PMHIGH 

300 POKE VSA+ADD, PMLOW 

310 POKE VSA+ADD+1 , PMHIBH 

320 DISP=DISP+128: ADD=ADD+8 

330 NEXT T 

If you are going to have five players on the screen at one 
time, you must change line 240 from PM = 256* A + 512 to 
PM = 256* A + 384. This tells the computer to let us use the fourth 
missile as a player. 

Step 4: Now we are ready to add the initial specifications, 
such as color, size, and shape to the players. First, line 340 places 
the blank overlay on each player, clearing out any stray data. 

340 PM1*=CLEAR*:PM2*=CLEAR*:PM3*=CLEAR* 

Next we set the player/missile graphics to double-line resolution 
and turn on the P/M graphics (a 3 enables them and a 
disables them). 

350 POKE 559,46:P0KE 53277,3 

To set the colors of the players, we must POKE the color 
register for each player with the proper color number. The regis- 
ters go from 704 (for Player 0) through 707 (for Player 3). The fifth 
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player takes on a combination of the colors of the other four. The 
colors that I have chosen are: COLR1 is yellow, COLR2 is white, 
and COLR3 is pink'. 

360 COLRl=25: C0LR2=1 1 : C0LR3=74 
370 POKE 704, COLR1 : POKE 705 , COLR2 : PO 
KE 706,COLR3 

The size of the players is automatically set to normal. If you 
want to change the size, POKE for normal, 1 for double, and 3 
for quadruple size into the size register for the corresponding 
player. These registers go from 53256 (for Player 0) through 53259 
(for Player 3). 

POKE 53256, 1 would make Player double size. 

Now we can place the player on the screen. First, we give the 
player an X (horizontal) value and POKE it into the horizontal 
position register for each player. The registers go from 53248 (for 
Player 0) through 53251 (for Player 3). The horizontal positions 
that show up on the screen range from about 50 to 200 
(depending on your TV). Numbers lower than 50 and greater than 
200 are to the right and left of the screen. 

380 Xl=125: X2=75: X3=175 

390 POKE 5324B, XI : POKE 53249 , X2 : POKE 
53250, X3 

Now we must give our player a Y (vertical) value and an 
overlay. The format is PM$ (Y value) = overlay. 

400 Yl=125: Y2=25: Y3=25 

410 PM1»(Y1)=SHIP*:PM2»(Y2)=ALIEN*:P 
M3*<Y3)=ALIEN* 

To move the player around the screen, change the X and/or 
the Y value and repeat steps 390 and 410. Be sure not to change 
the X value more than the maximum DPM that you decided 
earlier. If you do, you will leave parts of the overlay on the screen. 

Program 1 . Player/Missile Graphics Example 1 

5 REM PMSAMPLE1 

10 DIM PM1* ( 128) , PM2$ ( 128) , PM3* ( 128) 

20 SI ZE1=16: SI ZE2=8 

30 DIM SHIP* (SI ZE1 ), ALIEN* (SI ZE2) 

40 DIM CLEAR*(128) 

50 FOR ROWS=l TO SIZE1 

60 READ DOTS 

70 SHIP* (ROWS, ROWS) = CHR* (DOTS) 
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EXT ROWS 

ATA 0,0,0,0,0 

DATA 16,56,56,124,108,68 

DATA 0,0,0,0,0 

FOR ROWS=l TO SIZE2 

READ DOTS 

ALIEN* (ROWS, ROWS) =CHR* (DOTS) 

NEXT ROWS 

DATA 60, 126, 219, 126, 36, 36, 66, 129 

FOR ROWS=l TO 128 

CLEAR* (ROWS, ROWS) =CHR* (0) 

NEXT ROWS 

A=4*(INT(PEEK(742)/4)-l) 

POKE 54279, A 

VSA=256*PEEK ( 135) +PEEK ( 134) 

B0A=256*PEEK (141 ) +PEEK (140) 

PM=256*A+512 

DISP=PM-BOA 

ADD = 2 

FOR T=l TO 3 

PMHIBH=INT(DISP/256) 

PML0W=DISP-256*PMHIGH 

POKE VSA+ADD, PMLOW 

POKE VSA+ADD+1 , PMHIBH 

DISP=DISP+128: ADD=ADD+8 

NEXT T 

PMl$=CLEAR$:PM2t=CLEAR$:PM3$=CLE 

AR* 

POKE 559, 46: POKE 53277,3 

C0LR1=25: C0LR2=1 1 : C0LR3=7 4 

POKE 704, COLR1 : POKE 705,COLR2:PO 

KE 706,COLR3 

X 1=125: X 2= 75: X 3=175 

POKE 53248, XI : POKE 53249, X2: POKE 
53250, X3 

Yl=75: Y2=25: Y3=25 

PM1*(Y1)=SHIP$:PM2$(Y2)=ALIEN$:P 

M3$ ( Y3) =ALIEN* 

IF STICK(0)<8 THEN Xl=Xl+3 

STICK (0) >8 AND STICK (0X13 TH 
X1=X 1-3 

STICK(0)=14 THEN Yl=Yl-3 
STICK(0)=13 THEN Yl=Yl+3 
E 53248, X 1 : PM1* (Yl ) =SHIP* 
THEN X2=X2+2 
AND STICK ( 1 ) < 13 TH 



IF 

EN 

IF 

IF 

POK 

IF 

IF 

EN 

POK 

IF 



:s 

■8 



STICK ( 1 ) 

STICK ( 1 ) 

X2=X2-2 

E 53249, X2 

STICK(2)<8 THEN X3=X3+2 
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510 IF 9TICK<2)>8 AND STICK (2) < 13 TH 

EN X3=X3-2 
520 POKE 53250, X3 
530 GOTO 420 

Program 2. Player/Missile Graphics Example 2 

5 REM PMSAMPLE2 

10 DIM PM*(128> 

20 DIM SHIP* ( 16) , CLEAR* ( 128) 

30 FOR ROW=l TO 16 

40 READ DOTS 

50 SHIP* (ROW, ROW) =CHR* (DOTS) 

60 NEXT ROW 

70 DATA 0,0,0,0,0 

80 DATA 16,56,56,124,108,68 

90 DATA 0,0,0,0,0 

100 FOR ROW=l TO 128 

110 CLEAR* (ROW, ROW) =CHR* (0) 

120 NEXT ROW 

130 A=4* ( INT (PEEK (742) /4) -1 ) 

140 POKE 54279, A 

150 VSA=256*PEEK ( 135) +PEEK ( 134) 

160 B0A=256*PEEK ( 141 ) +PEEK ( 140) 

170 PM=256*A+512 

180 DISP=PM-BOA 

190 ADD=2 

200 FOR T=l TO 1 

210 PMHIGH=INT (DISP/256) 

220 PMLOW=DISP-256*PMHIGH 

230 POKE VSA+ADD, PMLOW 

240 POKE VSA+ADD+1 , PMHIGH 

250 DISP=DISP+128: ADD=ADD+8 

260 NEXT T 

270 PM*=CLEAR* 

280 POKE 559,46:P0KE 53277,3 

290 POKE 704, 12 

300 POKE 53248,50 

310 PM* ( 10) =SHIP* 

320 N=l 

330 FOR X=60 TO 190 STEP N 

340 POKE 53248, X 

350 NEXT X 

360 FOR Y=10 TO 100 STEP N 

370 PM*(Y)=SHIP* 

380 NEXT Y 

390 FOR X=190 TO 60 STEP -N 

400 POKE 53248, X 

410 NEXT X 
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420 FOR Y=100 TO 10 STEP -N 

430 PM* <Y> =SHIP* 

440 NEXT Y 

450 N=N+0. 1 

460 IF N>5 THEN N=l 

470 GOTO 330 
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PRINTing P/M 
Graphics 



Sheldon Leemon 



Using a PRINT statement to make multiple POKEs can speed up your 
programs. The technique is easily learned and will work especially well 
with player/missile graphics. 

The PRINT statement is one of the easiest BASIC commands to 
learn, and one of the first mastered by the beginning programmer. 
POKE, on the other hand, seems very mysterious to those just 
starting out with computers. Just changing the value of certain 
memory locations can have many different effects, but the how 
and why often elude the novice. 

The POKE and PRINT commands are alike in a number of 
ways. For example, it is fairly easy to make a character appear on 
the screen by POKEing a value to display memory. Since Atari 
screen memory isn't always in the same place, you first have to 
find the start of screen memory by entering the statement 
SM = PEEK(88) + 256*PEEK(89). Now you POKE SM,33, and the 
letter A will appear in the top-left corner of the screen. You might 
think of this as PRINTing with the POKE statement. The reason 
that you use a 33 to make an A appear is that it is the internal 
screen code value used to display that letter. A table of these 
screen codes appears on page 55 of the Atari BASIC Reference 
Manual. (The internal character set can also be found on page 120 
of COMPUTER'S First Book of Atari Graphics and in COMPUTED 
Third Book of Atari.) Try not to confuse this with the ATASCII 
values that appear in Appendix C of the manual. Those are the 
values that work with the CHR$ statement. 

The fact that you can accomplish the same thing with both 
statements points out their fundamental similarity. When you get 
right down to it, all that the PRINT statement really does is to 
POKE a series of values into screen memory according to certain 
rules of cursor placement. The main advantage of using PRINT 
instead of POKE is its ease of use and speed, as compared to 
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calculating a screen location and a numeric value for each char- 
acter that you wish to display. 

But if printing to the screen really involves only quickly 
POKEing a series of values into screen memory it is not too 
different from a number of other situations in which the user must 
POKE a number of values into sequential memory locations. 
Examples of such situations include putting a machine language 
subroutine into place, installing a user-defined character set, or 
setting a number of music or graphics registers at once. If PRINT 
can facilitate the movement of a number of values to screen and 
color memory in one situation, might it not also be able to help 
out in some of these other situations? 

Fooling the Computer 

It is quite possible to use the PRINT statement for purposes other 
than printing to the screen. To do so, we have to make the 
computer think that the address we want POKEd to is the address 
of screen memory, and then PRINT a string of characters to that 
location whose POKE values correspond to the changes we wish 
to make to memory. The first part is possible because screen 
memory is not fixed in one set location in the Atari. Instead, the 
computer has a way of telling the display chip what spot in 
memory to display, and of letting the operating system know 
what area of memory is currently being shown on screen. Thus it 
knows the proper place to PRINT. Normally, the display chip 
reads and displays the same area of screen memory that the oper- 
ating system (OS) writes. It is possible, however, to change the OS 
pointer so that the area of memory being PRINTed is different 
from the one being displayed . 

Locations 88 and 89 hold the OS pointer to screen memory 
The number in location 88 plus the number in location 89 multi- 
plied by 256 equals the address of the first location which will be 
written to as screen memory. Let's try an experiment to see how 
this works. ENTER and RUN the following: 

10 L=PEEK <88) : H=PEEK (89) 

20 POKE 88,0:POKE 89,6 

30 POSITION 0,0:PRINT "A":PRINT " B " 

40 POKE 88,L:P0KE 89, H 

Nothing is printed on the screen, although the cursor does move 
to the top line. Where in memory did the PRINT statements write 
to? 
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We can figure out step by step what locations must have 
changed. When we POKEd 88 with a and 89 with a 6, we 
changed what the computer thought the top of PRINT memory 
was to + 6*256 or 1536. Using the POSITION statement, we 
home the cursor to the top left, which is the first character in 
screen memory Therefore, the screen value of A must have been 
POKEd into 1536. If we type: 

PRINT PEEKC1536) <RETURN> 

We find a 33, which is indeed the screen value of A. But where did 
the B go? Since after every PPJNT statement, the cursor moves to 
the next line, the cursor would move at least 40 spaces in memory 
In addition, the cursor also moves two more spaces for the right 
margin, making a total of 42. If we type: 

PRINT PEEK ( 1536+42) <RETURN> 

We will find a 34, which is the screen value of B. 

Using PRINT with P/M Graphics 

One practical application for this technique is in displaying 
player/missile graphics. Normally, to move a player vertically you 
must POKE each byte of shape data into memory, one byte at a 
time, causing motion that is slow and jerky. But by changing the 
operating system PRINT pointers to the player area, we can use 
the speed of the PRINT statement to make the multiple POKEs 
appear to occur at the same time. This can be done by PRINTing a 
string of characters into player memory. This string will contain 
the data for the player. And, by combining data for several shapes 
into one long shape string, we can change the shape of the player 
at any time just by PRINTing a different segment of the string. 

Program 1 shows just how easily a short BASIC program can 
move and animate a player. When the ship appears on the screen, 
insert a joystick into port 1. Use the joystick to move the ship 
around. You will notice that when you move the ship, its shape 
will change to point in the direction in which it is moving. The 
program has enough internal remarks to enable someone with a 
basic understanding of player/missile graphics to follow the 
program logic. 

Player/Missile Graphics from PILOT 

An added feature of this technique is that it is applicable to other 
languages besides BASIC. PILOT, for example, is a language that 
lacks built-in player/missile graphics commands. The T: statement 
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in PILOT works the same way as PRINT in BASIC, so it is possible 
to use the same techniques to move a player in PILOT. Program 2 
is a simplified program in PILOT which demonstrates moving a 
player with a joystick. Considering that PILOT allows only one 
statement per line, you can see that this program is extremely 
compact. When you type it in, pay careful attention to characters 
you enter for $SHIP. There are instructions in the comments at the 
end of the program to help you. 

UnPRINTable Characters 

One problem you should keep in mind is that not every value that 
you may need in screen memory can be placed there by a printing 
character. Some characters move the cursor rather than print 
anything on the screen, and in order to get them to print you must 
precede them with an ESCape character. For example, let's 
suppose you want to put into screen memory a value of 28, which 
corresponds to the cursor up arrow. Rather than moving the 
"cursor" up a line, you must print an ESCape and an up arrow in 
order for the character to be placed into memory. Program 1 has 
many instances in which such nonprinting characters are 
preceded by a 27 so that their number value will be placed in 
memory. Some characters, like the quote (internal value of 2) and 
the carriage return (internal value of 253) are even more difficult to 
PRINT. Keep a sharp eye out for such exceptions. Since perhaps 
the greatest drawback to this technique is in generating the strings 
to print, you might want to write a short program to do this for 
you. 

Other Uses 

I think you'll find this technique a useful one for controlling 
player/missile graphics from BASIC. But don't ignore the possibili- 
ties for using it to install nonrelocatable machine language into 
page six, for producing 16-bit sound, and for other applications 
where you have to move a number of bytes of data to a specific 
spot in memory quickly and efficiently. 

Program 1. PRINTing Player/Missile Graphics from BASIC 

1 SOTO 20 

2 POKE 88, Y: POSITION 0,0:? SHIP* < I , 1+15) ; 

3 POKE 53248, X 

4 GOTO STICK(0) 

5 Y=Y+1 : X = X + 1 : 1=49: GOTO 2 
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6 Y=Y-1+ (Y = 0) : X=X+1 : 1=17: GOTO 2 

7 X=X+1 : 1=33: BOTD 2 

9 Y=Y+1 : X=X-1 : 1=81 : GOTO 2 

10 Y=Y-1+ ( Y=0) : X=X-1 : 1=1 13: GOTO 2 

11 X=X-1 : 1=97: GOTO 2 

13 Y=Y+1 : 1=65: GOTO 2 

14 Y=Y-1+ <Y=0) : 1=1 : GOTO 2 

15 GOTO 4:REM Line 2 sets screen poi 
nter and prints ship into player 

data area, line 3 moves ship ho 
riz ont ally 

20 ? CHR$ ( 125) : POKE 752,1:P0KE 82,0: 
POKE 83,39:7 " " : REM clear screen 
, set margins to -full screen, cur 
sor o-f f 

30 DIM BL$ (255) , SHIP* < 128) : BL* ( 1 ) = " 
":BL*<255)=" " : BL$ (2) =BL$: REM fil 

1 bl* with space character 

40 FOR 1=1 TO 128:READ ft! SHIP* < I , I > = 
CHR$(A):NEXT I : REM Read player sh 
ape data into ship* 

50 DATA 32,56,56,56,56,56,92,92,92,2 
7, 126, 27, 126, 231, 131, 32 

51 DATA 32,32,33,39,62,27,254,27,126 
,46, 44, 44, 60, 40, 40, 32 

52 DATA 32,32,160,128,224,112,124,95 
, 124, 112, 224, 128, 160, 32, 32, 32 

53 DATA 32,32,40,40,60,44,44,46,27,1 
27, 27, 254, 62, 39, 33, 32 

54 DATA 32,131,231,27,126,27,126,92, 
92, 92, 56, 56, 56, 56, 56, 32 

55 DATA 32,32,48,48,88,80,80,112,27, 
126, 27, 127, 120, 228, 160, 32 

56 DATA 32,32,33,35,39,46,94,252,94, 
46, 39, 35, 33, 32, 32, 32 

57 DATA 32,32,160,228,120,27,127,27, 
126, 112, B0, 80, 88, 48, 48, 32 

60 A=PEEK < 106) -16: POKE 54279 , A : X= 1 29 
:Y=96:POKE 704,14:REM set pmgraph 
ics base, x and y position and co 
1 or of sh i p 
70 POKE 88,0:POKE 89 , A + 4 : POS I T I ON 0, 
0:7 BL$: REM set screen pointer to 
player data area, print blanks 
to c 1 ear 
80 POKE 559,30:POKE 53277 , 3 : I = 1 : GOTO 
2: REM enable pmgraphics, go to m 
ove 1 oop 
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Program 2. PRINTing Player/Missile Graphics from PILOT 

100 J: *PMINIT 

110 *MOVE C: 5>B5324B = #X 

120 C:S)B88 = #Y 

130 POS:0,0 

140 T:*SHIP 

150 *LOOP A:tS = 7.J0 

160 MS: 10, 9, 8, 6, 5, 4, 2, 1 , 

170 JM:*DR,*UR,*R,*DL,*UL,*L,*D,*U,* 

LOOP 

180 *DR C:#X=#X+1 

190 *D C:4»Y = #Y+1 

200 J: *MOVE 

210 *UR C:#Y=ttY-l 

220 *R C:#X=#X+1 

230 J:*MOVE 

240 *DL C:»Y=#Y+1 

250 *L C:#X=*X-1 

260 J: KMOVE 

270 *UL C:#X=#X-1 

280 *U C:#Y=#Y-1 

290 J : *MOVE 

300 *PM1NIT 

310 T: CCLEAR} { 1 3 SPACES > C CLEAR SCREEN 

320 C:382=9984£6 SPACES>CFULL MARGINS 

330 C:*SHIP= EEKESC} i INSERTS HE CPM S 

HAPE DATA 

340 C: #P=3B106-12{3 SPACES} C BELOW SC 

REEN. . . 

350 C: S>B54279 = #P<!4 SPACESJEIS PM AREA 

360 C:#X=12BCB SPACES} L PLAYER X POS. 

370 C:#Y=48{9 SPACES} C PLAYER Y POS. 

380 C: aB704=14C6 SPACES} [PLAYER IS W 

HITE 

390 C: S>B559=14<6 SPACES} C ENABLE DISP 

LAY. . 

400 C: S>B53277 = 3{5 SPACES}COF PM GRAP 

HICS 

410 C: S>B89 = #P + 2C5 SPACES}CSET PR. PQ 

INTER 

420 J:*MOVE 

430 R: 

440 R:BE CAREFUL IN TYPING LINE 330 

450 R:AFTER THE EQUAL SIGN, TYPE: 

460 R: SPACE, INVERSE KEY(ATARI LOGO) 

470 R:NINE, RIGHT BRACKET , ESCAPE , ESCA PE 

480 R: ESCAPE, CONTROL AND INSERT, 

490 RrRIGHT BRACKET , 9 , I NVERSE (LOGO), 

500 R: SPACE, (COMMENT IS OPTIONAL) 
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Fontbyter 



Orson Scott Card and Carl Zahrt 



"Fontbyter" is a utility which makes creating graphics displays in ANTIC 
modes 4 and 5 both easy and fun. Fontbyter requires a minimum of40K 
memory. 

It's hard to tell, when you're using "Fontbyter," whether this is a 
utility or a game. You can easily create graphics displays many 
times the size of the screen and save them to disk, using the ROM 
character set — or character sets you have designed yourself. And 
because Fontbyter allows you to use two "hidden" character 
modes, ANTIC modes 4 and 5, you get all the high-resolution 
color of GRAPHICS 7 with the convenience and memory usage of 
GRAPHICS 0. 

Once you have a character set designed and a picture drawn 
on the screen, changing an 8-by-8-pixel character block takes only 
one POKE. This allows easy, almost instant animation; your 
programs can be shorter than they would be if you tried to get the 
same effect with GRAPHICS 7; and you have more memory avail- 
able to you because the screen displays take up less room. 

The problem is creating the actual display. In ANTIC 4, you 
have 24 lines of 40 characters; in ANTIC 5, 12 lines of 40 charac- 
ters. Laying out the screen display and writing the DATA state- 
ments can be a long, tedious, painful process. You have to 
remember what each character looks like and make sure that the 
characters are in the right order in the DATA statements you 
create. And when you want to change a display, you have to go 
back and find the right DATA statement and alter it. 

Fontbyter lets you create and edit in ANTIC 4 or 5 right on 
the screen. You don't have to write down the number of the char- 
acter and POKE it into memory; you only have to press a key or 
combination of keys, and your character will be displayed exactly 
where you want it on the screen. Simple commands allow you to 
fill large areas with a single character, insert or delete lines, scroll 
around the screen to view large areas quickly, or change the colors 
on the screen. And Fontbyter will scroll horizontally and verti- 
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cally, so you can use the screen as a window onto a very large 
display — up to 4K. 

Best of all, you can save your screen to disk at any point and 
return to continue editing it. Using a simple subroutine, you can 
then load your screen into memory in your own program. The 
first eight bytes of every file Fontbyter creates contain the mode 
number, the display width, the display height, and the five colors 
of the screen display. 

Starting Fontbyter 

Character Set. When you RUN Fontbyter, the program accesses 
your disk and shows you a directory of all the files with the file- 
type ".SET". Fontbyter assumes that these are all character sets. 
The program then asks you to choose which one you want to use. 
Or, if you wish to use the built-in ROM character set, enter the 
character @ as the filename. 

There is only one custom character set included with Font- 
byter, but by using a character editor you can create as many 
different sets as you want. There are several character editor 
programs that will help you create your own character sets, 
including Tim Kilby's ANTIC 4 and 5 character editor in the 
December 1982 BYTE (reprinted in this book by permission of the 
author) and Charles Brannon's "SuperFont" from COMPUTERS 
First Book of Atari Graphics. 

Any character editor can be used if you remember that 
instead of an 8-byte by 8-bit grid, each character is drawn on an 8- 
byte by 4-bit-pair grid. A bit-pair of 00 selects the background color 
(register 4), and bit-pairs of 01, 10, and 11 select color registers 0, 1, 
and 2. Bit-pair 11, in inverse mode, selects register 3. 

If the character set you ask for is not on the disk in drive 1, the 
program will prompt you either to insert the correct disk or to ask 
for a different set. Whenever Fontbyter asks you for a filename, 
you don't need to enter more than the eight-character name — 
Fontbyter always supplies the device name "Dl:" and the 
extender ".SET" or ".SCR". If you use an illegal name, Fontbyter 
will ask you to try again. 

Screen files. When you have chosen your character set, Font- 
byter displays a directory of all the files with the filetype ".SCR". 
Fontbyter assumes that these files contain screen displays created 
and saved by Fontbyter. If no directory is displayed, it means that 
there are no files with the filetype ".SCR" on the disk. 

At the end of the directory, you will be told the number of 
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sectors left on the disk. Be sure that the disk you use for saving 
screens has enough room for the screen you intend to save. A 
maximum-size display is almost 4K, which will create a file of 33 
sectors. Disks can fill up pretty fast at that rate. 

Save file. The program asks you what name your saved 
screen file should have. When you are through editing and want 
to save your finished screen, this is the filename that Fontbyter 
will use to create the save file. You can use a filename that you 
used before, but saving the new file will erase the old one. Again, 
only the eight-letter filename is necessary. Fontbyter automatically 
selects "Dl:" as the device name and ".SCR" as the filetype. 

Load file. The program asks you if you want to edit a screen 
that was previously saved. If you do, you will be asked the name 
of the file you want to load from. (Again, only the eight-letter 
name will be used — the filetype must be ".SCR".) If the file is not 
found, Fontbyter will ask you either to enter another name or to 
insert the disk with that file on it; if you choose to enter another 
name, Fontbyter goes back to the original load file prompt, and 
you can decide at that point not to edit a previously saved file 
after all. 

Notice that this sytem allows you to load from a file and then 
save your edited version back to the same file, erasing the old 
version; or you can choose to save the file under a different 
filename, so that both versions will exist. There is an added safe- 
guard, too. When you save the screen display, it is first saved 
under the name "l3l.TEMPFILE.SCR". Then Fontbyter asks you if 
you want to save it under the name you chose at the beginning of 
the program. If you change your mind about the save filename 
then, you can exit Fontbyter and use DOS to change 
"DTEMPFILE.SCR" to whatever name you want. 

Load file parameters. If your load file is found, Fontbyter 
immediately opens it and reads the first three bytes. Then it 
reminds you of the ANTIC mode, width (in characters), and 
height (in lines) of the file as it was saved. If you don't want to 
change those parameters, you can proceed directly to the final 
check; if you do want to change them, Fontbyter will ask you to 
choose the mode, width, and height of the file as if you were 
creating a new screen. 

Changing the height or mode is fairly safe. Mode changes 
put twice as many lines on the screen, but all the relationships are 
the same. Changing the height merely adds or subtracts lines at 
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the bottom of the display. Remember, though, that changing the 
width of a file will have very odd results. It does not cut off the 
edges of the old screen — it merely causes the lines to wrap 
around at a different point, so that nothing fits together vertically 
the way that it did. 

ANTIC mode. Fontbyter asks you to choose which ANTIC 
mode you want. The only choices are 2 (GRAPHICS 0), 4, or 5. 
Mode 4 has shorter, squarer characters, and fits 24 lines on a 
screen. Mode 5 has tall, thin characters and fits only 12 lines on a 
screen. This means that a display file a hundred lines from top to 
bottom will give you more than eight distinct screen displays in 
ANTIC 5, but only just over four distinct displays in ANTIC 4. 
ANTIC 2 (GRAPHICS 0) is included, even though it is not a four- 
color mode, so that you can use Fontbyter to create displays using 
the built-in ROM character set. 

Display width. The minimum width of a line is 40 characters. 
If you enter a number less than 40, Fontbyter will change it to 40. 
The maximum width depends on the mode. The limiting factor 
here is that all screen displays must fit within 4K. Because of this, 
the wider a screen display you choose, the fewer vertical lines you 
can have. You cannot have a line so wide that it would not allow 
the minimum number of lines. Since you will not be allowed any 
fewer than 24 screen lines in ANTIC 2 or 4, you naturally can't 
have as wide a screen as in mode 5, which has a minimum of 12 
lines per screen. 

Display height. The minimum height, in number of lines, is 
12 lines for ANTIC 5 and 24 lines for ANTIC 2 and 4. The 
maximum height depends on the line width you chose. If you ask 
for more lines than the allowable maximum, Fontbyter will 
change the figure to the maximum. 

Final check. Fontbyter clears the screen and then displays 
what your choices were: the character set, the file in which to save 
your screen, the file (if any) to load from, the mode, the width (in 
characters), and the height (in lines). If you want to make any 
changes, press OPTION. If you are satisfied with your choices, 
press START. 

Fontbyter will display a wait message for a few moments, 
and then the screen will go completely blank. This is so the setup 
operations will run faster. When Fontbyter is ready to go on — and 
it won't be long — either the load screen you asked for will appear 
or a cursor will appear in the upper-left-hand corner of a blank 
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screen. The cursor is whatever the ESCAPE character looks like in 
the character set you chose. 

Also, part of the character set will be displayed on the bottom 
four lines of the screen. The characters are arranged in the same 
order as the computer keyboard, so that you can easily figure out 
which key to press in order to display a particular character. 

Editing Features 

To use the keyboard. The character set is divided into three 
groups: regular, shifted, and control. You can change from one to 
another using the CAPS/LOWR key. To get the regular character 
group, press CAPS/LOWR. To get the shifted character group, 
press SHIFT and CAPS/LOWR at the same time. To get the 
control character group, press CONTROL and CAPS/LOWR at 
the same time. As soon as you make the change, the character 
keyboard display at the bottom of the screen will change to show 
you the characters now available. 

Instead of the usual computer keyboard system of locking 
only the alphabetic keys into shifted and control functions, Font- 
byter shifts the entire keyboard. After you press SHIFT and 
CAPS/LOWR, you can press any key on the keyboard and get the 
shifted character — without pressing SHIFT again. The same 
applies to CONTROL with CAPS/LOWR. 

Some keys, of course, don't have a shifted or control value 
(ESC, DEL, and RETURN, for instance), and others usually 
display only the inverse of another character (SHIFT-TAB, for 
instance). Since these don't display a separate character, pressing 
them only produces the same character that you would get if you 
pressed the space bar — a blank. (If your character set redefines 
the space bar character, that character will fill your display when it 
first comes up, and will appear on the screen whenever you enter 
a nonprinting character.) 

the keys do not produce their normal clicking sound, except 
for the command keys, which are described next. 

Command keys. No matter which character group you are 
using, there are some key combinations that Fontbyter interprets 
as commands. Pressing INSERT and SHIFT together will insert a 
blank line on the screen. Pressing DELETE and SHIFT together 
will delete a line. Pressing CONTROL and an ARROW key 
together will cause the cursor to move. 

Remember, to print the character represented by the 
CONTROL-ARROW combination, press only the ARROW key 
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while the control group is locked in. To move the cursor, press 
CONTROL and ARROW at the same time, regardless of which 
group is locked in. 

Inverse video (Atari logo) key. This key is a toggle. Pressing 
it shifts you back and forth between inverse and regular video. In 
ANTIC 2 (GRAPHICS 0), this wiU cause all the characters you 
enter to be reversed, as the computer normally does. In ANTIC 4 
and 5, however, this will cause Color 3 to take its value from color 
register 4 (memory location 711 instead of 710). It will affect, there- 
fore, only one of the colors, and if a character does not contain any 
dots of Color 3, inverse mode won't have any effect at all. 

CONTROL-ESC. This key combination is a toggle. Pressing 
it will shift you back and forth between Still and Auto-Advance 
modes. In Still Mode, pressing noncommand keys will display a 
new character in the same place on the screen. In Auto- Advance 
Mode, pressing noncommand keys will display a new character 
and then advance the cursor to the next position to the right, 
unless doing so would take the cursor beyond the edge of the 
display. 

To move the cursor. Either move the joystick in the direction 
you want to move, or press the appropriate CONTROL-ARROW 
key combination. Only the joystick allows diagonal movement. 

When the cursor reaches the edge of the screen, the display 
will begin to scroll until it reaches the limits of display height 
and width you specified during start-up. If you are at the edge 
of the display, the cursor simply won't move any farther that 
direction. 

Fast-fill function. Sometimes you will have large areas or 
lines to fill with the same character. Instead of entering the char- 
acter by typing it in each space where it is to appear, you can use 
the joystick and fire button. First maneuver the cursor until it is on 
top of the character you want to copy, or move it to the place 
where you want to begin the fast-fill operation and enter the char- 
acter from the keyboard. Then press down the joystick button and 
hold it down while you use the joystick to move the cursor. From 
then on, until you let up on the button, wherever you move the 
cursor using the joystick, a trail made up of that character will be 
left behind. 

You can also use this function to erase areas of the screen 
fairly quickly. Just move the cursor to a blank, press down the 
button, and the cursor will leave blanks behind it wherever you 
make it go. 
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Clear screen function. To erase the entire display, press 
CONTROL-SHIFT-CLEAR. 

Delete line function. To delete an entire line of your screen, 
move your cursor to the line you want to delete and press SHIFT- 
DELETE. The line will vanish, and the entire display below that 
line will move upward one line on the screen. Whether the very 
bottom of your display is visible on the screen or not, a line of 
blanks will be inserted as the last line in your display. 

Insert line function. To insert a blank line in your display, 
move the cursor to the position where you want the new fine. 
Then press SHIFT-INSERT The line that the cursor was on will 
move down, as will all the other lines below it in the display, and 
the cursor will now be on a blank line. At the bottom of the 
display, whether it is visible on the screen or not, the last line of 
your display will be deleted completely. 

With both the delete and insert line functions, the line that 
disappears is irrecoverably lost. To get it back, you will have to 
enter all the characters just as you did before. So be careful about 
using these two functions! 

By using the delete and insert functions in succession, you 
can quickly blank large areas of the screen, a line at a time. Simply 
move to the top of the area you want to blank out, and press 
SHIFT-DELETE as often as it takes to erase all the lines you 
wanted to get rid of. Then press SHIFT-INSERT until the desired 
number of blank lines appears. 

You can also use these functions to move the entire picture 
upward or downward in the display. For instance, suppose you 
loaded a display that had been created and saved with only 24 
lines, and you want to add another 24-line picture above it. At the 
beginning of the editing session, simply specify 48 lines as the 
height of the display Fontbyter will put the 24 new blank lines at 
the end of the display. To move the old picture down into that 
blank area, start at the top of the screen and press SHIFT-INSERT 
24 times. 

Three joystick modes. We've already gone over the use of the 
joystick in Cursor Mode. The joystick can also be toggled into two 
other modes. If you press the START button while in Cursor 
Mode, the joystick will change to Scroll Mode. If you press the 
START button in Scroll Mode, the joystick will shift to Color 
Mode. And pressing the START button in Color Mode will shift 
you back to Cursor Mode again. 

1. Scroll Mode. This mode enables you to scroll the TV screen 
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window around the entire display by moving the joystick in the 
appropriate direction. When you move, the cursor character will 
disappear. When you return to Cursor Mode, the cursor will come 
back to the middle of the screen. 

2. Color Mode. In this mode, the joystick controls the color 
registers as follows: 

• Forward and back: Color register (Memoiy location 708) 

• Left and right: Color register 1 (709) 

• Forward and back with joystick button depressed: Color 
register 2 (710) 

• Left and right with joystick button depressed: Background 
color register (712) 

• Forward and back with SELECT depressed: Inverse color 
register (711) 

As you press the joystick forward or to the right in Color 
Mode, that particular color will get brighter and brighter until it 
reaches maximum brightness; then it will jump to the next color at 
its darkest value and get brighter and brighter with that color. 
Pushing left or back cycles through the colors from bright to dark. 
There are 16 colors, each with eight levels of brightness. You can 
cycle through the colors endlessly in either direction. 

When you start editing with a new display, the colors are the 
system default colors. When you load a previously saved display, 
however, you start with the colors saved with that display. You 
can change the colors however you like, and whatever the colors 
are when you save your display, those values will be saved with it. 

Summary of Command Keys 

Command Key Description 

START Cycle from Cursor Mode to Scroll Mode 

to Color Mode and back to Cursor Mode. 

SELECT Save the current display without inter- 

rupting the edit. In Color Mode, moving 
the joystick forward and back with 
SELECT pressed will change the inverse 
color. 

OPTION Save the current display and stop the 

editing session. 

CONTROL- ARROW Move the cursor. 

SHIFT-INSERT Insert a blank line where the cursor is and 

delete the bottom line of the display. 
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SHIFT-DELETE 

Atari logo key 

SHIFT-CAPS/LOWR 
CONTROL-CAPS/ 
LOWR 
CONTROL-ESC 

CONTROL-SHIFT- 
CLEAR 



Delete the cursor line and add a blank line 

at the bottom of the display. 

Toggle back and forth between inverse 

and regular characters. 

Select the shifted character group. 

Select the control character group. 

Toggle between Still and Auto-Advance 

modes. 

Erase the entire display. 



Ending and Saving 

There are two ways to save a screen. 

1. You can press the SELECT button when the joystick is in 
Cursor Mode, and the display will be saved as "Dl: TEMP- 
FILE. SCR". The screen is not changed, and you can resume 
editing as soon as the joystick or keyboard responds again. 

2. You can press the OPTION button. Fontbyter will save the 
entire display in a file named "DLTEMPFILE.SCR". The screen 
then clears, and Fontbyter asks if you want to save the display in 
the save file you asked for at the beginning of the edit. If you 
answer yes, "TEMPFILE" is renamed with the save filename you 
chose at the beginning. If a file with the same name already exists 
on the disk, it will be erased at this time. 

If you are merely saving a half-done file to make sure some 
catastrophe doesn't lose it for you, then "TEMPFILE. SCR" should 
be security enough — if the system crashes, you'll know that the 
screen as you last saved it is in that file. 

You will then be asked if you want to return to edit the same 
screen. If you say yes, your saved screen will quickly be reloaded 
into memory, and the program will reinitialize. If you say no, you 
will be asked whether you want to quit or start Fontbyter over 
again. If you choose the quit option and change your mind, don't 
worry. Just give the direct command RUN, and Fontbyter will 
begin again with the setup prompts. 

Using Fontbyter Screens in Your Programs 

Just because Fontbyter scrolls doesn't mean you have to make one 
continuous scrolling display. You can create many different screen 
displays in one file, "stacking" them vertically, and then use page 
flipping in your own program to move instantly from one to 
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another. The advantage of using Fontbyter is that while you are 
creating the screen displays, you can scroll from one to the other 
to compare them and make sure that any animation effects you 
are trying for are working properly. 

The diagrams will show you the variety of display configura- 
tions you can choose. 

Figure 1 is the simplest and smallest display — just enter the 
minimum height and width for the mode you're working in. 

Figure 2 is a completely horizontal display. You might want 
such a display in a game program to provide a very wide 
scramble-type game playfield, or in a storytelling program to 
allow the story to progress from left to right. 

To get the widest possible display, use ANTIC 5. This allows 
displays that are 8.5 screens wide. However, the characters in 
ANTIC 5 are twice as tall as in ANTIC 4, which can distort your 
display. 

If you want even wider displays, you can chain several 
displays together by beginning one display with the exact picture 
that ends the previous one; from there, continue the display as if 
there were no break. Then, when your own program scrolls to the 
end of one, it can page flip to the next 4K block of memory, where 
the next display begins, and continue scrolling. If you are doing 
horizontal scrolling, however, you are undoubtedly revising your 
display list in machine language, and the page flip will have to be 
in machine language, too. You can even make two displays chain 
to each other by having Display 1 begin with the end of Display 2, 
and Display 2 begin with the end of Display 1 . That way the user 
keeps cycling through the same endless loop. 

Figure 3 is a completely vertical display. You can use the same 
techniques to scroll vertically through a continuous display, 
except that now, since you are doing no horizontal scrolling, you 
can do scrolling and page flipping from BASIC just by POKEing 
new values into bytes 4 and 5 (counting from 0) of the display list. 

In Figure 4, the screen is a window into a display that 
extends some distance both horizontally and vertically You could 
use this in your programs to allow users to explore a map, or find 
their way out of a maze, or control hundreds of armies in a really 
massive and complex full-color war game, or simply to admire an 
elaborate picture. 
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Figure 1 . The Minimum Display Figure 4. The Window Display 
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Figure 2. The Maximum Horizontal Display 
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Programming with Fontbyter 

Here are subroutines you can include in your own programs to 
use the displays you have created with Fontbyter. 

Loading files. To use Fontbyter displays, your program will 
need to load a character set and the display file. Subroutine 1 loads 
slowly entirely from BASIC. Subroutine 2 loads quickly using a 
machine language routine that accesses an operating system fast- 
load program. 

Subroutine 1 . Slow Load 

10 REM Slow load (character set) 
100 OPEN #1 , 4,0, "Dl : CHARACT. SET" : FOR 
1=0 TO 1023:BET #l,N:POKE CH,N: 
NEXT I : CLOSE #1:RETURN 
190 REM Slow load (display file) 
200 OPEN #1 , 4,0, "D1:DRAWIN6. SCR":GET 
#1,MD:6ET #1,WD:GET #1,LN:IF MD 
>5 THEN MD=MD-10: WD=WD+256 
205 FOR 1=708 TO 712:GET #l,N:POKE I 
,N:NEXT I : FOR 1=0 TO WD*LN-1:6ET 
#l,N:POKE SC+I,N:NEXT I : CLOSE # 
1 : RETURN 

Subroutine 2. Fast Load 

10 REM Set up variables 

20 X=16: ICCOM=834: ICBADR=836: 1CBLEN= 

840:REM See text -for meaning o-f v 

ariables SP and CHBAS 

90 REM Fast load (display file) 

100 OPEN ttl , 4,0, "Dl : DRAWING. SCR" : GET 

#1,MD:GET #1,WD:GET ttl,LN:IF MD 

>5 THEN WD=WD+256: MD=MD-10 
110 SZ=WD*LN:FOR 1=708 TO 712:GET #1 

,N:POKE I,N:NEXT I 
120 POKE ICBADR+X+1 , SP: POKE ICBADR+X 

,0:POKE ICBLEN+X+1 , 1+INT (SZ/256) 

:POKE ICBLEN+X,0 
130 POKE ICCOM+X, 7: I=USR (ADR ( "hhhQLV 

E" ), X) : CLOSE #1: RETURN 
190 REM Fast load (character set) 
200 OPEN #1 , 4, 0, "Dl : CHARACT. SET" : POK 

E ICBADR+X+1 , CHBAS: POKE ICBADR+X 

,0:POKE ICBLEN+X+1 , 4:P0KE ICBLEN 

+ X, 
210 POKE ICCOM+X, 7: C=USR(ADR( "hhhQLV 

E" ) , X ) : CLOSE #l:POKE 756, CHBAS: R 

ETURN 
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Display list setup. Subroutine 3 sets up an ANTIC 2 or 4 
display list that can be horizontally or vertically scrolled. Subrou- 
tine 4 sets up an ANTIC 5 display list that can be horizontally or 
vertically scrolled. Subroutines 5 and 6 set up display lists that 
cannot be horizontally scrolled — use these only to load displays 
that were created with the minimum line width. 

Subroutine 3. Horizontal Scroll Display List, ANTIC 2 or 4 

10 REM Lines 20 and 30 are just a de 
monst r at i on . Change the value of 
SC and see what happens! 
20 DL = PEEK <B8)+256*PEEK<B9) : SC=DL: MO 

DE=4: WIDE=40: BOSUB 100 
30 FOR 1=0 TO 1000:NEXT I:SC=0:MODE= 
2:B0SUB 100:FOR 1=0 TO 1000:NEXT 
I: GOTO 20 
90 REM This ANTIC 2 or 4 display lis 
t can be horizontally scrolled. 
Just set the values of SC,DL,MQDE 
, and WIDE. 
100 FOR 1=0 TO 2:POKE DL+ I , 1 1 2 : NEXT 

I : N=0: M=MODE+64 
110 FOR I=DI_ + 3 TO DL + 72 STEP 3:C = SC + 
N:POKE I,M:POKE I +2 , I NT < C/256 ) : P 
OKE 1 + 1 , C-256*PEEK ( 1+2) : N = N + WIDE 
:NEXT I 
120 POKE I , 65: DLH I = I NT < DL/256 ) : DLLO=^ 
DL-DLHI*256:P0KE I + 1 , DLLO : POKE I 
+ 2, DLHI: POKE 56 1 , DLH I : POKE 560, D 
LLO: RETURN 

Subroutine 4. Horizontal Scroll Display List, ANTIC 5 

10 REM Lines 20 and 30 are just a de 
monstration. Change the value of 
SC and see what happens! 
20 DL = PEEK(98)+256*PEEK(89) : SC = PEEK ( 
106)*256:MODE = 5:WIDE = 40: GOSUB 100 
30 FOR 1=0 TO 1000:NEXT I:SC=0:GOSUB 
100:FOR 1=0 TO 1000:NEXT I : BOTO 
20 
90 REM This ANTIC 5 display list can 
be horizontally scrolled. Just 
set the values of SC,DL,MODE, and 
WIDE. 
100 FOR 1=0 TO 2:P0KE DL+ I , 1 1 2 : NEX T 
I : N=0: M=M0DE+64 
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110 FDR I=DL+3 TO DL+36 STEP 3:C=SC+ 
N:PQKE I,M:POKE I +2 , I NT < C/256 ) : P 
OKE 1+1 , C-256*PEEK ( 1+2) :N=N+WIDE 
:NEXT I 

120 POKE I ,65: DLHI=INT <DL/256> : DLLO= 
DL-DLHI*256:P0KE I + 1 , DLLO : POKE I 
+2,DLHI:P0KE 56 1 , DLH I : POKE 560, D 
LLO: RETURN 



Subroutine 5. Regular Display List, ANTIC 2 or 4 

10 REM The actual subroutine is line 
s 100-120. You set the value of 
DL, SC, MODE, and WIDE. 
20 DL = PEEK <88) +256*PEEK (89) :M0DE=2:W 

IDE = 40 
30 SC=0: M0DE=2+2* <M0DE=2) : GOSUB 100 
40 TRAP 30: ON PEEK<753)<>3 GOTO 40: S 
C=SC+480: SP=INT (SC/256) : POKE DL5, 
SP:POKE DL4, SC-256*SP 
50 FOR 1=0 TO 30:NEXT I : GOTO 40 
90 REM This ANTIC 2 and 4 display li 
st can be page -flipped -from BASIC 
POKE the screen address into D 
L4 and DL5. 
100 FOR 1=0 TO 2:P0KE DL+ I , 1 1 2 : NEX T 

I : DL4 = DL + 4: DL5 = DL + 5 
110 POKE DL+3, 64+MODE: POKE DL5,INT(S 
C/256) :POKE DL4 , SC-256*PEEK ( DL5 ) 
:FOR I=DL+6 TO DL+28:P0KE I , MODE 
:NEXT I 
120 POKE I , 65:DLHI=INT (DL/256) : DLLO= 
DL-DLHK256: POKE I + 1 , DLLO : POKE I 
+2,DLHI:P0KE 56 1 , DLH I : POKE 560, D 
LLO: RETURN 

Subroutine 6. Regular Display List, ANTIC 5 

10 REM The actual subroutine is line 

s 100-120. You set the value of 

DL,SC, MODE, and WIDE. 
20 DL=PEEK(88)+256>PEEK(89) :MODE=5:W 

IDE=40: GOSUB 100 
30 SC=0 
40 TRAP 30:ON PEEK(753)<>3 GOTO 40:S 

C=SC+480: SP=INT (SC/256) : POKE DL5, 

SPrPOKE DL4, SC-2564SP 
50 FOR 1=0 TO 30:NEXT I : GOTO 40 
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90 REM This ANTIC 5 display list can 
be page flipped -from BASIC. Jus 
t POKE the screen address into DL 
4 and DL5. 

100 FOR 1=0 TO 2:P0KE DL+ I , 1 1 2 : NE X T 
I:DL4=DL+4:DL5=DL+5 

110 POKE DL+3, 64+MODE: POKE DL5,INT(S 
C/256):P0KE DL4 , SC-256 * PEEK ( DL5 ) 
: FOR I=DL+6 TO DL+16:POKE I , MODE 
:NEXT I 

120 POKE I , 65: DLHI = INT (DL/256) : DLLO = 
DL-DLHI*256: POKE I + 1 , DLLO : POKE I 
+2,DLHI:P0KE 56 1 , DLH I : POKE 560, D 
LLO: RETURN 



These routines use the following variables: 

TOP is the page number of the top of memory. The Atari will 
not touch anything located above the top of memory — but 
anything below it is fair game. The display list, character set, 
screen memory, and machine language routines should all be 
placed above SE So the load routines find out where the top of 
memory is and move it down enough pages to leave room for all 
the protected program areas. SC is the absolute address of the top 
of memory (SP*256); it is also the start of screen memory, so that it 
is POKEd into both the display list and location 106. 

How much room should you leave? The character set takes 
IK (four pages) and must start on a IK boundary. Screen memory 
will never take more than 4K (16 pages), and should start on a 4K 
boundary, since ANTIC has problems when screen memory 
crosses that line. If your display is less than 2K, you can probably 
skip back from the top of memory a mere 4K (16 pages, or 
PEEK(106)-16), place screen memory at the new top of memory, 
and put the display list, machine language routines, and character 
set above it. If your display list is 3K or more, you should prob- 
ably skip back 6K (24 pages, or PEEK(106)-24), place the character 
set at the new top of memory, followed by the display list, 
machine language subroutines, and then screen memory begin- 
ning at the 4K boundary line, 16 pages before the old top of 
memory. This routine assumes that arrangement. 

SP is the page number of the start of screen memory, and SC 
is the absolute address of the start of screen memory (SP*256). 

DL is the start of the display list. For page flipping, DL3 is 
DL + 3, and DL4 is DL + 4. These will contain the low byte and 
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high byte of screen memory, and POKEing new values into these 
locations will flip screen memory. 

CHBAS is the page number of the character set, and CH is the 
absolute address (CHBAS*256). 

MODE is the ANTIC mode number — either 2, 4, or 5. 
Adding 64 to MODE each time it is POKEd in tells the computer 
to look for a new screen memory address in the next two bytes in 
the display list. 

WIDE is the width, in characters, of the entire horizontal line, 
not just the 40-character portion visible on screen at any one time. 
Thus, every MODE instruction is followed by a two-byte address, 
C, which tells it where to find the start of the next horizontal line. 

POKEing 560 and 561 with and DL/256 is what actually 
makes the display list start working. Until that moment, the 
display list is just a series of numbers in memory. But once 560 
and 561 contain the address of the start of your display list, the TV 
screen is under your program's control. 

ICBADR, ICBLEN, and ICCOM are the addresses of key loca- 
tions in the IOCB handler. ICCOM must contain the number of 
the operation to be performed (7 to load, 11 to save). ICBADR 
must contain the low byte of the starting address of the area in 
memory to be saved from or loaded to (ICBADR + 1 will contain 
the high byte). ICBLEN must contain the low byte of the length of 
the file to load (ICBLEN + 1 will contain the high byte). The vari- 
able X represents the offset into the IOCB area. If you OPEN #1, 
then X = 16. If you OPEN #2, then X = 32. And so on, in multiples 
of 16. You might not get good results using OPEN #0 or OPEN 
#6 — those are reserved for system use. 

With screen files created by Fontbyter, remember that the first 
eight bytes always contain the following information: 

• ANTIC mode number (plus 10, if width is greater than 255 

characters) 

• width, or number of characters per line (low byte only if 

width is greater than 255 characters) 

• display height, or number of lines in the entire display 

• colors to POKE into locations 708 through 712 

To calculate the number of bytes in the whole screen display 
(SZ), multiply the height by the width. The number of bytes in the 
file is that number plus eight. 

Typing the Program 

The bulk of the program is written in BASIC. The shortest 
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machine language routines are included as string constants. The 
longer routines, however, DISPLAY, EXPAND, and DELETE, and 
two data files, MENU. DAT and CHARDATA.DAT, are listed after 
the main program. These should be entered using the BASIC 
loader program provided and saved on disk with exactly the 
filename specified. Fontbyter will look for these files and load 
them into strings or particular areas of memory during the run of 
the program. 

Since Fontbyter works most efficiently with a disk drive, the 
program as written assumes a disk drive. However, a patient 
cassette user can remove all the routines related to choosing and 
testing filenames, and simply assign the value "C:" to all filename 
variables. You may also want to add prompts to tell the user what 
file the program is asking for. (The biggest problem arises with 
load files during initialization, when the program tests the saved 
screen file once, then loads it again later. If you decide not to 
revise the program, make sure that you rewind the cassette 
containing the screen file after that initial test, so the file will be 
complete when it is loaded by the screen load subroutine.) 

There are no REM statements in Fontbyter. Instead, remarks 
are included as typeset lines that interrupt the program listing. 
Type only the numbered program lines that were printed out by a 
printer, not the comments printed in the same typeface you are 
reading now. 

Program 1 . Fontbyter 

Start-up. DIMension arrays and string variables; clear the 
screen; establish key addresses. 

Line 5. F$ is the character set name; FSAVE$ is the save 
filename; FLOAD$ is the load filename; FL$ and FLL$ are tempo- 
rary filenames for various uses; DELETES and EXPANDS will 
hold machine language subroutines in ASCII form; C(n) will hold 
the relationship between keyboard code and internal code. 

10. Clear the screen. ICCOM, ICBADR, and ICBLEN are 
addresses in Input/Output Control Block (IOCB) zero (for files 
opened as #0). ICCOM is the address where the command 
should be POKEd; ICBADR should be POKEd with the low byte 
of the address in memory where files should be stored or loaded 
(ICBADR + 1 holds the high byte); ICBLEN should be POKEd 
with the low byte of the length of the file to be moved (ICBLEN + 1 
holds the high byte). X is the offset into succeeding IOCBs. To use 
file #1, X = 16; for file #2, X = 32; and so on. 
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15. COL1 through COL5 are the addresses of the color regis- 
ters. COL4 is the inverse mode color; COL5 is the background 
color. SHIF keeps track of which character mode we are locked 
into — unshifted (0), shifted (64), control (128), or shift-control 
(192). SCON is the value to turn the screen back on. POKE 16, 112 
disables the BREAK key. Jump to 440. 

5 DIM F*(20) ,FSAVE*(20) , FLOAD* (20) ,F 
L»(40) ,FLL* (20) , DELETE* (124) , EX PAN 
D*( 124) , CLEAR* (33) , C(255) 
10 GRAPHICS 0: X=16: ICC0M=B34: ICBADR= 

836: ICBLEN=840 
15 COL 1=708: COL2 = 709 : C0L3 = 7 1 : C0L4 = 7 
11:C0L5=712: SH I F=64 : SCON=PEEK (559 
):POKE 16,112:B0T0 440 

Display Load Subroutine. MD is the mode number; WD is 
the number of characters per line; LN is the number of lines in the 
display. If the width of the screen is greater than 255, the high byte 
of the width has been stored in MD by adding 10 to the mode 
number. The size of the display is (adjusted) WD*LN. The colors 
are read; then ICBADR is POKEd with the starting address of 
screen memory; ICBLEN is POKEd with the length of the 
remainder of the file; and ICCOM is POKEd with 7, which is the 
read-from-disk command. The machine language subroutine 
merely pulls three numbers off the stack and jumps to a subrou- 
tine built into the operating system. 

20 OPEN #1 ,4, 0, FL*: BET #1,MD:BET #1, 

WD:BET #1,LN:IF MD>5 THEN WD=WD+2 

56:MD=MD-10 
25 SZ=WD*LN:FOR I=COLl TO C0L5:BET # 

l,N:POKE I,N:NEXT I 
30 SC=SP*256: POKE I CBADR+X+1 , SP : POKE 
ICBADR + X , 0: POKE I CBLEN + X+ 1 , 1 + I NT 

(SZ/256) : POKE ICBLEN+X.0 
35 POKE ICCOM+X , 7: I=USR (ADR ( "hhhBS_Vir 

"),X):CLOSE ttlrRETURN 

Display Save Subroutine. The Display Load Subroutine in 
reverse. ICCOM is now POKEd with 11, the write-to-disk 
command. This is where the program adds 10 to MD if WD is 
greater than 255. The filename is always "DLTEMPFILE.SCR". 

40 OPEN #1 ,8, 0, "Dl: TEMPFILE. SCR" : WD = 
WIDE: MD=MODE: IF WIDE>255 THEN WD= 
WIDE-256: MD=MODE+10 
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45 PUT #1,MD:PUT #1,WD:PUT #1,LINE:F 

OR I=COLl TO C0L5:PUT #1,PEEK(I): 

NEXT I 
50 POKE ICBADR+X+1 , SP: POKE ICBADR+X, 

0:POKE ICBLEN+X+1, 1+INT( (LINEtWID 

E)/256):P0KE ICBLEN+X,0 
55 POKE ICCOM+X, 1 1 : I=USR (ADR ( "hhhQLV 

E" ), X ): CLOSE #1: RETURN 

Delete Line Subroutine. Line 60 quits the routine if the 
cursor is on the bottom line of the display. LOWAD is the address 
of the leftmost character on the cursor line; HIADD is the line 
below it on the screen (which is above it in memory). LOWAD is 
POKEd into 203-204, and HIADD into 205-206. Address 207 is 
POKEd with the number of lines between the cursor line and the 
end of the display, and 208 and 209 hold the low and high bytes of 
the width of a line. The machine language subroutine in the string 
DELETES moves everything below the cursor line up one line on 
the screen, and inserts a blank line at the bottom of the display. 
The cursor (91 = ESC) is then POKEd back into place. 

60 IF < (LINEIWIDE-PI X XWIDE) THEN RE 

TURN 
65 LOWAD=SC+WIDE*INT(PIX/WIDE)-l:HIA 

DD=LOWAD+WIDE: POKE 206, INT (HI ADD/ 

256): POKE 205, HIADD-PEEK (206) *256 
70 POKE 204, INT (LOWAD/256) : POKE 203, 

LOW AD-PEEK (204) *256: POKE SC+PIX, O 

LD 
75 POKE 207, INT ( ( L I NE * W I DE-P I X ) /WIDE 

):POKE 208,WLO:POKE 209, WHI 
80 C=USR (ADR (DELETE*) ) 
85 OLD=PEEK (SC+PI X) : POKE SC+PIX, 91:R 

ETURN 

Insert Line Subroutine. The same as the Delete Line Subrou- 
tine, except that everything from the cursor line to the end of the 
display is moved down the screen, and a blank line is inserted at 
the cursor line. LOWAD is now the second to last line of the 
display, and HIADD is the last line of the display. 

90 IF ( (LINEIWIDE-PI X XWIDE) THEN RE 

TURN 
95 HIADD=SC+WIDE*(LINE-1)-1: LOWAD=HI 

ADD-WIDE: POKE 206, INT (HI ADD/256) : 

POKE 205, HI ADD-PEEK (206) *256 
100 POKE 204, INT (LOWAD/256) : POKE 203 

,LOWAD-PEEK(204) *256:POKE SC+PIX.OLD 
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105 POKE 207, INT ( ( L I NE* W I DE-P I X ) /WID 

E):POKE 208,WLO:POKE 209, WHI 
110 C=USR (ADR (EXPAND*) > 
115 OLD = 0:POKE SC + P I X , 9 1 : RETURN 

Main Loop. Most of the time, the program cycles through 
from line 125 to line 150; unless the user presses a key or moves the 
joystick, this will go on endlessly. 

120. Store the value of whatever character belongs in screen 
memory where the cursor now is in the variable OLD. When the 
cursor moves off, OLD will be POKEd back in. The internal code 
for the ESC character is 91 — it is used as the cursor. POKE 
559, SCON turns the screen on. This line is executed only once. 

125. Zero out several variables and check for user input. OPT 
holds the value returned by the console keys, DI the value 
returned by joystick 1, and T the value of fire button 1. 

130. If the START button is pressed, jump to the Quick Scroll 
Subroutine at 870; when that is over, jump to the Color Change 
Subroutine at 255. 

135. If the joystick has been pushed, jump to the Cursor 
Movement Subroutine at 155. 

140. If a key has been pressed (PEEK(753) = 3), jump to the 
Read Keyboard Subroutine at 220. Upon RETURNing, the flag 
MV will tell whether the arrow keys or auto-advance mode were 
used to move the cursor; if yes (MV = 1), jump to the third line of 
the Cursor Movement Subroutine at 165. 

145. If OPTION has been pressed, jump to the Stop Edit 
Subroutine at 705. If SELECT has been pressed, jump to the 
Display Save Subroutine. The display will be saved as 
"DLTEMPFILE.SCR" without interrupting the edit. 

150. Start the loop over again. 

120 OLD=PEEK (SC+PIX ) : POKE SC+PIX,91: 

POKE 559, SCON: POKE 16,112 
125 MV = 0: V=0: H=0: OPT=PEEK (5327 9) :DI= 

PEEK (632) :T=PEEK (644) : E=0 
130 IF 0PT=6 THEN GOSUB 870:GOSUB 26 

0:GOTO 125 
135 IF DK15 THEN GOSUB 155:G0T0 125 
140 IF PEEK(753)=3 THEN GOSUB 220:ON 

MV GOSUB 165:GOTO 125 
145 ON OPT=3 GOTO 705: IF 0PT=5 THEN 

GOSUB 40:POKE SC + P I X , 9 1 : GOTO 125 
150 GOTO 125 
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Cursor Movement Subroutine. In this routine, V is vertical move- 
ment; H is horizontal movement; PIX is the current position of the 
cursor relative to the start of screen memory; OLD is the character 
"under" the cursor in screen memory; UD is the current cursor 
line; LR is the current left-right position of the cursor on a line; W 
is the position of the upper-left-hand corner of the current screen 
display relative to the start of screen memory; U is the current line 
number of W; and L is the current left-right position of W on its 
line. WH is the horizontal scroll flag (1 = left, 2 = right); WV is the 
vertical scroll flag (1 = up, 2 = down). 

155-160. Convert the joystick position into cursor move 
instructions. 

165-175. Get the current cursor position. If the called-for 
movement would take the cursor beyond the edge of the display, 
cancel that movement instruction. If no movement is called for, 
quit the subroutine. Keyboard-controlled cursor movements enter 
the routine here. 

180-195. Get the current screen position relative to the start of 
screen memory. If scrolling is necessary, execute the machine 
language scroll subroutine at address DISPLAY. 

200. Put the OLD character into PIX; change PIX to its new 
value; sound the console buzzer (POKE 53279, 1). 

205-215. If the trigger is not pressed, put the character at PIX 
in the variable OLD and POKE the cursor character into the new 
cursor position. 

155 V=WIDE* ( <DI=9 OR DI=13 OR DI=5>- 
<DI=10 DR DI=14 OR DI=6)):P0KE 7 

7,0 
160 H=(DI=6 OR DI=7 OR DI=5)-(DI=10 

OR DI=11 OR DI=9> 
165 UD=INT (PIX/WIDE) : IF UD-(V<0)<0 O 

R UD+ (V>0) =LINE THEN V=0 
170 LR=PIX-WIDE*UD: IF LR+H<0 OR LR + H 

>WIDE-1 THEN H=0 
175 IF H=0 AND V = THEN 215 
180 WH=0: WV=0: W=PEEK<DL4)+256*PEEK(D 

L5) -SC 
185 U=INT (W/WIDE) : IF V< >0 THEN WV=(U 

D-U-<V<0)<0)+2*(UD-U+(V>0)>8+12* 

(MODE< >5) ) 
190 IF HO0 THEN L = W-U* W I DE : WH= ( LR + H 

-L<0) +2* (LR+H-L>39) 
195 IF WH>0 OR WV>0 THEN POKE DL+114 

,WH:POKE DL+1 15, WV: C=USR (DISPLAY 

) 
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200 POKE SC+PIX, OLD:PIX=PIX+H+V: POKE 

53279, 1 
205 IF T=l THEN OLD = PEEK ( SC + P I X ) : POK 

E SC+PIX, 9I:G0T0 215 
210 POKE SC+PIX, OLD 
215 RETURN 

Read Keyboard Subroutine. C is the actual value of the key 
combination pressed (key plus SHIFT and/or CONTROL); N is 
the absolute value of the key depressed (key minus SHIFT and/or 
CONTROL); SHIF is the offset for unshifted, shifted, control, or 
shift-control character groups (0 = unshifted, 64 = shifted, 
128 = control, and 192 = shift-control); VERS is the high-bit condi- 
tion for inverse mode (regular = 0, inverse = 128); and MV is the 
flag for whether movement is to take place upon leaving the 
subroutine (1 = movement). 

220. Get the key pressed from the Keycode Subroutine at 785; 
if the key is an arrow key, jump to the arrow key routine at 250; if 
it is SHIFT-DELETE, jump to the Delete Line Subroutine at 60; if it 
is SHIFT-INSERT, jump to the Insert Line Subroutine at 90. 

225. If the key was CONTROL-ESC, toggle the auto-advance 
flag AV from to 1 or back again. 

230. If the key was CAPS-LOWR, set SHIF to the appropriate 
value. CAPS-LOWR alone -0, SHIFT-CAPS-LOWR = 64, 
CONTROL-CAPS-LOWR= 128, and SHIFT-CONTROL-CAPS- 
LOWR = 192. Jump to the subroutine at 930, which changes the 
keyboard display on the bottom four lines of the screen to show 
the current character group. 

235. If the key was the Atari logo key (or inverse key), toggle 
the value of VERS from to 128 or back again. 

240-245. If none of the above commands was executed, 
change OLD to the internal character code of the character called 
for, using the array C(n), and POKE that value into the current 
cursor position (SC + PIX). If AV is set to 1, change the value of C 
to 135 (right arrow). 

250. Set the value of V and H as required by the arrow key 
pressed, and set the flag MV to 1 to indicate that a move is called 
for. 

220 GOSUB 785:ON ( C= 1 34 ) + ( C= 1 35 ) + < C= 
142) + (C=143) +2* (C=l 16) +3* (C=l 19) 
+4*<C=246> GOTO 250,60,90,645 

225 IF C=156 THEN AV= 1 * < AV = ) : GOTO 9 
20 
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230 IF N = 60 THEN SH I F=4+C-64 : POKE 53 

279,4:G0SUB 930:RETURN 
235 IF N=39 THEN VERS= 1 28* ( VERS=0 ) : G 

DTD 920 
240 DLD=C (N+SHIF) +VERS: POKE SC+PIX,0 

LD:DN AV BDTO 245:RETURN 
245 C=135 
250 V=WIDE* ( <C=143)-(C=142) ) :H=(C=13 

5) - (C=134) : MV=1 : RETURN 

Color Change Subroutine. DI is the joystick position, T is the 
joystick trigger (0 = pressed, 1 = not pressed), OPT is the console 
key, and COL1-COL5 are the addresses of the color registers. 

255-260. The exit and entrance routines. 920 is the Delay 
Subroutine. The exit routine also POKEs the cursor character into 
place and RETURNs. 

265-275. Read the joystick, button, and console keys. If 
START is pressed, exit the routine through 255. The four legal 
directions are 7, 11, 13, and 14. Change a 7 to a 12, then subtract 10; 
now if the joystick is indicating a legal direction, the value of DI 
will be 1, 2, 3, or 4. If it isn't one of those, go back and read again. 
If it is, use those plus T to get to the right line. 

280-315. Read the color register and change the value as 
appropriate. Lines 310 and 320 change the inverse color register 
(COL4) if SELECT was pressed; otherwise, line 315 or 325 is 
executed. 

255 GOSUB 920:POKE SC + P I X , 9 1 : RETURN 

260 GOSUB 920 

265 DI=PEEK(632> :T=PEEK(64 4> : DI=DI+5 

* (DI=7) :DI=DI-10: OPT=PEEK (53279) 

: IV= (0PT=5) : IF 0PT=6 THEN 255 
270 IF DK1 OR DI>4 THEN 265 
275 ON (4*T)+DI GOSUB 280,285,290,29 

5, 300, 305, 310, 320: GOTO 265 
280 POKE COL5, PEEK (C0L5) -2+256* (PEEK 

(COL5) <2) : RETURN 
285 POKE COL5, PEEK (C0L5) +2-256* (PEEK 

(COL5) >253) :RETURN 
290 POKE COL3, PEEK (COL3) -2+256* (PEEK 

(C0L3) <2> : RETURN 
295 POKE COL3, PEEK (C0L3) +2-256* (PEEK 

(COL3) >253) : RETURN 
300 POKE COL2, PEEK (COL2) -2+256* (PEEK 

(COL2X2) : RETURN 
305 POKE COL2, PEEK (COL2) +2-256* (PEEK 

(COL2) >253) : RETURN 
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310 IF IV THEN POKE C0L4 , PEEK ( C0L4 ) - 

2 + 256* (PEEK <C0L4) <2) : RETURN 
315 POKE COL1 , PEEK (COL1 ) -2+256* <PEEK 

(COL1 ) <2> : RETURN 
320 IF IV THEN POKE C0L4 , PEEK ( C0L4 > + 

2-256* < PEEK (C0L4) >253) : RETURN 
325 POKE COL1 , PEEK (COLD +2-256* (PEEK 
(COL1 ) >253) : RETURN 

Filename Test Subroutine. This routine takes apart the 
filename that the user entered; removes anything before a colon, 
anything after a period, and any letters beyond the first eight; and 
provides error messages if there is nothing left, or if the name 
doesn't begin with a capital letter, or if there are illegal characters 
in the filename. If the name failed, flag N is set to 1. 

330 FLL*=FL*: FOR 1=1 TO LEN(FL*>:N=A 

SC(FL»( I , I ) > : ON N=58 GOSUB 370:N 

EXT I:FL*=FLL$ 
335 FLL* = FL»: FOR 1 = 1 TO LEN(FL*):N=A 

SC(FL* ( I , I ) > : ON N=46 GOSUB 375:N 

EXT I:FL*=FLL* 
340 IF LEN(FL*)>8 THEN FL*=FL* ( 1 , B > 
345 IF LEN(FL*><1 THEN 390 
350 N=ASC(FL$(1, 1) ) : IF N>90 OR N<65 

THEN 385 
355 IF LEN(FL*><2 THEN GOTO 365 
360 FOR 1=2 TO LEN ( FL* > : N=ASC ( FL* ( I , 

I)):ON (N>90 OR N<65) AND (N>57 

OR N<48) GOTO 380:NEXT I 
365 FLL*="D1 : " : FLL* ( 4 ) =FL* : N=0 : RETUR 

N 
370 FLL*=FL* ( 1+1 , LEN (FL*) ) : RETURN 
375 FLL*=FL* ( 1 , 1-1) : RETURN 
380 POP :? " {CLEAR} " : ? "Illegal char 

acters in ";FL*:GOTO 390 
385 ? "{CLEAR}":? FL*;" must start w 

ith a capital":? "letter. ":6QTD 

390 
390 ? "Let's try that name again. ":N 

=1 : RETURN 

Disk Test Subroutines. These routines test to see if a file is 
present on the disk. If not, flag N is set to 1. 

395-410. Check to see if file FL$ is on the disk. If it isn't, warn 
the user. 

415-435. Check to see if file FL$ is on the disk. If it is, warn the 
user. 
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395 TRAP 400:OPEN #1 , 4,0, FLt: N=0: CLO 

SE #1: RETURN 
400 ? :? FL*;" isn't on disk in":? " 

drive 1":? "Insert disk with ";F 

Lt;"and":? "press RETURN .": CLOSE 
#1 
405 ? "Or to try another -file name, 

press anyother key." 
410 ON PEEK(753><>3 GOTO 410:GOSUB 7 

85:0N N=12 BOTO 395: N= 1 : RETURN 
415 TRAP 435:0PEN #1,4,0, FLt:? FL*;" 
is already on disk.":? "Unless 

you change the name, the old" 
420 ? "file will be lost. To change 
the namepress RETURN":? "Or pre 

ss any other key to continue. ":C 

LOSE #1 
425 ON PEEK(753)<>3 GOTO 425:G0SUB 7 

85:ON N=12 GOTO 430 : N=0 : RETURN 
430 N=1:RETURN 
435 CLOSE #1 : N=0: RETURN 

Setup Routine. This long routine sets up the parameters for 
editing or creating the display. 

440. Print the program name and run the Keycode Array 
Subroutine at 905. 

445-460. Get a character set directory through the Directory 
Subroutine at 850, then get the user's choice of character set and 
test it through the Filename Test Subroutine at 330 and the Disk 
Test Subroutine at 395. 

465-475. Get a screen file directory through the Directory 
Subroutine at 840, then get the user's save filename (FSAVE$) and 
test it at 330 and 415. 

480-485. Find out if the user wants to edit a previously saved 
file. If not, skip on to 535. 

490-530. Get the user's load filename and test it at 330 and 
395. If the filename fails, go back to 480 so the user has the option 
of not loading a file after all. If the filename succeeds, then get the 
mode (MD), width (WD), and length (LN) parameters from the 
load file. Ask if the user wants to change the parameters. If not, 
jump to 585 for the final check; if yes, then proceed to 540. 

535. Set the flag FLOAD to 0, which means there is no load 
file. 

540-550. Get the user's choice of mode. Only 2, 4 and 5 are 
acceptable. 
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555-560. Get the user's choice of line width (WIDE). The 
minimum is 40 characters per line; the subroutine at 790 deter- 
mines the maximum. 

565-580. Get the user's choice of number of lines in the 
display (LINE). Minimum and maximum depend on mode and 
line width. The display cannot be longer than 4K. 

585-600. Show the user what the parameters are and get the 
user's decision about whether to proceed or not. If not, go back 
to 440. 

440 ? " {13 SPACES > lrf. ] iHil i ra n" = ? :? :? 

: GOSUB 905 
445 GOSUB 850:? "What is the name of 
your character^ SPACESJset? (E 

nter '3' for ROM set )": POKE 764, 

255: INPUT F* 
450 IF F*="S>" THEN 465 
455 FL$=F$:GOSUB 330:ON N GOTO 445:F 

$ = FLL$: Ft <LEN ( FLL$ ) + 1 ) = " . SET " 
460 FL*=F*:GOSUB 395:0N N GOTO 445 
465 GOSUB 840:? :? "What file should 
hold your f inished{3 SPACESJscr 

een? (Eight characters) ":POKE 76 

4,255: INPUT FSAVE* 
470 FL*=FSAVE*: GOSUB 330:ON N GOTO 4 

65: FSAVE$ = FLL$: FSAVE* (LEN <FLL*> + 

1 )=" . SCR" 
475 FL$=FSAVE$: GOSUB 415:0N N GOTO 4 

65 
480 FLOAD*="":? :? "Would you like t 

o edit a screen youC3 SPACESJhav 

e already saved? (Y or N) " 
485 GOSUB 785:0N N=35 GOTO 535: ON N= 

43 GOTO 490:GOTO 485 
490 ? :? "What is the name of the sa 

ved screen file? " : POKE 764,255 

: INPUT FLOAD* 
495 FL$=FLOAD$: GOSUB 330: ON N=0 GOTO 

500:GOTO 480 
500 FLOAD$=FLL$: FLOAD* ( LEN ( FLL* ) + 1 ) = 

" .SCR" 
505 FL*=FLOAD*: GOSUB 395: ON N GOTO 4 

80:OPEN #1 , 4, 0, FLOAD*: GET #1,MD: 

GET #1,WD:GET #l,LN:CLOSE #l:FLO 

AD=1 
510 IF MD>5 THEN MD=MD- 1 : WD=WD+256 
515 ? :? FLOAD*;" was saved as:":? " 

Mode ";MD;" ,":? "with ";LN;" lin 

es":? "of ";WD;" characters per line." 
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520 ? "If you wish to UXfelifctJ these p 
arameterspress RETURN.":? "To le 
ave them HliT4W^1iT ? f=H press any 
{5 SPACES>other key." 

525 ON PEEK(753)<>3 GOTO 525:GOSUB 7 
85: IF N=12 THEN 540 

530 MODE=MD: WIDE=WD: LINE=LN:SDTO 585 

535 FLOAD=0 

540 ? :? "What Antic mode will you w 
ork in?":? "(Antic 2, 4, DR 5) " 
:POKE 764,255 

545 GOSUB 785: ON N< >30 AND N<>24 AND 
N<>29 GOTO 545 

550 MODE=C <N) -16 

555 ? :? "How wide a line?":? " (Mi 
nimum 40 characters":? " 
C3 SPACESJmax i mum " ; 1 70+ 1 70* ( MOD 
E=5);" characters)" 

560 POKE 764,255:TRAP 560: INPUT WIDE 

: WIDE=INT(WIDE) : ON WIDE<40 OR WI 

DE>170 GOSUB 790 
565 ? :? "How many lines do you want 
to edit?C5 SPACES} ( Mi n i mum ";12 

+12* (MODE< >5) ; : ? " C3 SPACES>Maxi 

mum " ; INT (4096/WIDE) ; " ) " 

570 TRAP 570: INPUT LINE 

575 LINE=INT (LINE) : IF L I NE > I NT ( 4096 / 

WIDE) THEN LINE=INT (4096/WIDE) 
580 IF LINE<12+12* (M0DE=4) THEN LINE 

= 12+12* (M0DE = 4) 
585 ? "{CLERR}":? "You have chosen:" 

:? "Character set — ";F*:? "Save 

file — ";FSAVE*:? "Load file ";F 

LOAD* 

590 SZ=LINE*WIDE-1 : ? "Mode ";MODE:? 
LINE;" lines of ";WIDE; ,! charact 
ers" 

595 ? "If this is right, press HPOIBO 
{9 SPACES>To make changes, press 

Bsoani" 

600 ON (PEEK (53279) =6) + (2* (PEEK (5327 
9)=3)) GOTO 605,440:GOTO 600 

Initialization. A is the old top of memory; TOP is the new 
top of memory; CHBAS is the page number of the character set; 
CH is the absolute address of the character set; SP is the page 
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number of the start of screen memory; SC is the absolute address 
of the start of screen memory; and OLDCHBAS is the ROM char- 
acter set page number. (ICCOM, ICBADR, and ICBLEN are 
explained in the notes for lines 20-35.) 

605. Move memory down by 24 pages (6K) to reserve space 
for screen memory the character set, the display list, and other 
protected data. Set addresses. 

610-615. Print the wait message. If the user specified the 
ROM character set ("(a /'), skip to 630. 

620-625. Use a machine language routine to read the char- 
acter set from disk and load it at CH. 

630. Turn off the screen, run the setup subroutines, and jump 
to the main loop at 120. 

605 A=PEEK (106) : T0P=A-24: CHBAS=TOP:C 

H=CHBAS*256: SP = T0P + 8 : SC=SP*256 : P 

OKE 106, TDP: 0LDCHBAS=224: GRAPHIC 

S 
610 ? "Just a minute while I get mys 

elf {6 SPACES>together ..." 
615 IF F*="3" THEN CHBAS=224 : CH=CHBA 

S*256:GOTO 630 
620 OPEN ttl , 4, 0, F*: POKE ICBADR+X+1,C 

HBAS:POKE I CBADR+X , : POKE ICBLEN 

+X+1,4:P0KE ICBLEN+X,0 
625 POKE ICCOM+X, 7: C=USR (ADR ( "hhhQLV 

K" ) , X) : CLOSE #1 
630 POKE 559,0:GOSUB 640:GOSUB 655:G 

OSUB B10:GOSUB 635:0N FLOAD GOSU 

B 650:GOSUB 925:G0T0 120 

Set CHBAS Subroutine. Tell the operating system where the 
character set is. 

635 POKE 756, CHBAS: RETURN 

Clear Memory Subroutine. Machine language routine to fill 
screen memory with zeros. (Anything in brackets should be 
entered with the CONTROL key depressed.) 

640 OPEN #1 , 4, 0, "Dl : CLEAR. SUB" : FOR I 
= 1 TO 33:GET » 1 , N : CLEAR* ( I , I ) =CH 
R*(N):NEXT I : CLOSE #1 

645 C=USR (ADR(CLEAR$) ,SP,X) : RETURN 

Load FLOAD$ Subroutine. Set FL$ TO FLOAD$ and run the 
Display Load Subroutine at 20. 

650 T=SZ:FL$=FLDAD$: GOSUB 20:SZ=T:RE 
TURN 
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Display List Subroutine. DL is the address of the display list; 
DL4 + 256*DL5 is the address of the first screen memory address 
instruction in the display list; MENU is the address of the 
keyboard layout display; DLMEN is the display list instruction 
giving the low byte of the address of the keyboard layout display; 
DISPLAY is the address of the machine language scroll subrou- 
tine; WHI is the high byte of WIDE; WLO is the low byte of 
WIDE. 

655-665. Set up the display list for screen memory. 

670-675. Set up the display list for the keyboard layout 
display window. 

680-700. End the display list; load the scrolling subroutine 
from disk to DISPLAY; set up the parameters DISPLAY will use 
(WHI and WLO); and POKE the address of the display list into 
locations 560 and 561. 

655 DL=256* (TOP+4) :DL4=DL+4: DL5=DL+5 

: FOR 1=0 TO 2:POKE DL+I , 1 12: NEXT 
I : PIX=0: N=0 
660 FOR I=DL+3 TO DL + 27 + 36* ( M0DEO5 ) 
STEP 3: C=SC+N*WIDE: POKE I , 64+MO 

DE:POKE I +2 , I NT ( C/256 ) 
665 POKE 1+1 , C-256*PEEK( 1+2) :N=N+1 : N 

EXT I 
670 N=0:MENU=256*(TOP+5)+64: DLMEN=DL 

+32+36* (MODE< >5) : POKE DLMEN-2,M0 

DE + 64:POKE DLMEN , I NT ( MENU/256 ) 
675 POKE DLMEN-1 , MENU-256*PEEK (DLMEN 

):FOR I=DLMEN+1 TO DLMEN+3:POKE 

I,MODE:NEXT I 
680 POKE I,65:P0KE I+1,0:POKE 1+2, DL 

/256:0PEN #1,4,0," D: DISPLAY. SUB" 
685 DISPLAY=DL+128:TRAP 690:FOR 1=0 

TO 186:BET #l,N:POKE DISPLAY+I,N 

:NEXT I:BOTO 695 
690 POP 
695 WHI=INT (WIDE/256): WLO=W I DE-256* W 

HI:POKE DL+1 12, WLO: POKE DL+113,W 

HI 
700 POKE 560,0:POKE 56 1 , DL/256 : CLOSE 
#1 : RETURN 

Stop Edit Subroutine. This routine begins by executing the 
Display Save Subroutine at 20, restoring the ROM character set, 
and changing to GRAPHICS 0. Then the user decides whether to 
change the name of "DLTEMPFILE.SCR" to FSAVE$, whether to 
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quit or not, and whether to return to edit the same screen or start 
Fontbyter over. 

705-740. Save the screen and get the user's choices. 

745. Restore the old top of memory and start the program 
over. 

750-755. Return to edit the same screen. The flag FSAVE tells 
whether the screen is on disk as "DFTEMPFILE.SCR" or FSAVE$. 

760. Restore the top of memory clear the keyboard buffer, 
and quit. 

765-780. Check to see if a file named FSAVE$ is already on the 
disk. If it is, unlock it and erase it. Then change the name of 
"DFTEMPFILE.SCR" to FSAVE$. 

705 POKE SC+PIX,OLD: GOSUB 40-.POKE 75 

6, OLDCHBAS: GRAPHICS 0:POKE 764,255 
710 ? "Screen is saved as D1:TEMPFIL 

E.SCR":? :? "Do you want to save 
the screen as":? FSAVE*;"? (Y o 

r N) " 
715 GOSUB 785: ON N< >43 AND N< >35 GOT 

715: IF N=43 THEN GOSUB 765:G0T 

725 
720 FSAVE=0 
725 ? :? "Do you want to quit? (Y or 

N) " : POKE 764, 255 
730 GOSUB 785: ON N<>43 AND N<>35 GOT 

O 730:ON N=35 GOTO 735:0N N=43 G 

OTO 760 
735 ? :? "To return to edit the same 
screen, <4 SPACES* press EB300EE " = 

? :? "To start FONTBYTER over, p 

ress gEEE" 
740 OPT=PEEK (53279) : ON ( ( 0PT = 6 ) + ( 2 * ( 

0PT=3>>) GOTO 745,750:GOTO 740 
745 POKE 106, A: GRAPHICS 0:GOTO 10 
750 POKE 106, TOP: GOSUB 635 : FL* = "D 1 : T 

EMPFILE. SCR" : IF FSAVE=1 THEN FLt 

=FSAVE* 
755 GOSUB 20: GOSUB 655: GOTO 120 
760 POKE 106,A:POKE 764 , 255 : GRAPH I CS 

0: END 
765 FSAVE=1:TRAP 770:OPEN #2,4,0,FSA 

VE*:CLOSE #2:XIO 36 , #2 , , , FSAVE 

*:XIO 33, #2, 0, 0, FSAVE*: GOTO 775 
770 CLOSE #2 
775 FL*="D1:TEMPFILE.SCR, ":FLL*=FSAV 

E*(4,LEN(FSAVE*) ) : FL* (17) =FLL* 
780 XIO 32, #1 , 0, 0, FL*: RETURN 
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Keycode Subroutine. Read the keyboard buffer at 764. C is 
the actual key combination, and N is the key pressed, regardless 
of the CONTROL and SHIFT key s . 

785 C=PEEK(764) :N=C-64*INT(C/64) : RET 
URN 

Test WIDE Subroutine. Check to make sure WIDE is within 
the legal range. 

790 IF WIDE<40 THEN W I DE = 40 : RETURN 
795 IF WIDEM70 AND M0DEO5 THEN WID 

E=170: RETURN 
800 IF WIDE<340 THEN RETURN 
805 WIDE=340: RETURN 

Load DELETES and EXPANDS. Read these two machine 
language subroutines from disk files "DLDELETE.SUB" and 
"DLEXPAND.SUB", and store them as strings DELETES and 
EXPANDS. 

810 TRAP 815:0PEN # 1 , 4 , ," D : DELETE . S 
UB":FOR 1=1 TD 124:BET #1,N:DELE 
TE* ( I , I ) =CHR$ (N) : NEXT I : GOTO 820 

815 POP 

820 CLOSE #1 : WHI=INT <WIDE/256) : WLO=W 
IDE-256*WHI 

825 TRAP 830:OPEN #1 , 4, 0, "D: EXPAND. S 
UB":FOR 1=1 TO 124:GET #1,N:EXPA 
ND* ( I , I ) =CHR$ (N) : NEXT I : GOTO 835 

830 POP 

835 CLOSE ttl:RETURN 

Get Directory Subroutine. Get a directory of disk files with a 
particular extender and display it. Entry point 840 gets a directory 
of SCReen files, and entry point 850 gets a directory of character 
SETs. 

840 TRAP 865:XI0 36 , # 1 , , , " D : * . SCR " 
845 ? :? "Currently saved screen -fil 

es: " : FLL$="SCR" : GOTO 860 
850 TRAP 865:XIO 35 , # 1 , , , " D : * . SET " 
855 ? :? "Currently available charac 

ter sets: " : FLL*="SET" 
860 FL$="Dl:*.":FL$(LEN(FLt)+l)=FLL* 

:OPEN #1 , 6, 0, FL$: FOR 1=0 TO 50:1 

NPUT #1,FLL*:? FLL*:NEXT I 
865 CLOSE #1: RETURN 

Quick Scroll Subroutine. This routine eliminates the cursor 
and reads the joystick to determine the direction of the scroll. It 
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does not change screen memory, only the area of screen memory 
being read by the display list. Pressing START ends this routine. 

870 GOSUB 920:POKE SC + P I X , OLD : GOTO 8 

95 
875 WV = 2* < (DI=5)+(DI=13)+(DI=9) ) + (DI 

= 10) + (DI=6) + (DI = 14> : WH = 2* (DK8 A 

ND DI>4)+(DI<12 AND DI>8) 
880 W= (PEEK (DL4) +256* PEEK (DL5) )-SC:U 

=INT (W/WIDE) : WV=WV- (U=0 AND WV=1 

)-2*< (U+7+12* (MODE< >5> =LINE-2) A 

ND WV = 2) 
885 L=W- (UtWIDE) : WH=WH- (L=0 AND WH=1 

) -2* ( (L+40) =WIDE AND WH=2) 
890 POKE DL+1 14, WH: POKE DL+115,WV:C= 

USR (DISPLAY) 
895 IF PEEK (53279) <>6 THEN DI=PEEK(6 

32):0N DI015 GOTO 875:GOTO 895 
900 PIX=PEEK (DL4) +256 * PEEK ( DL5 )+( 6+6 

* (MODE< >5) ) *WIDE + 20:OLD = PEEK (PIX 

) :PIX=PIX-SC: RETURN 

Keycode Array Subroutine. This routine creates an array 
C(n) such that in each array element C(X), X is the keyboard code 
read from 764 and C(X) is the internal character code value for the 
key depressed. The values are read from the disk file 
"DkCHARDATA.DAT". 

905 OPEN #4, 4, 0, "D: CHARDATA. DAT" 

910 FOR 1=0 TO 255:GET #4 , N : C < I ) =N : N 

EXT I 
915 CLOSE #4:RETURN 

Delay Subroutine. This routine sounds the console buzzer 
and takes up time, so that users have time to lift their fingers from 
the keyboard to avoid repeating a command. 

920 FOR 1=0 TO 10:POKE 53279, 4:NEXT 
I : RETURN 

Load Keyboard Display. This routine sets up the keyboard 
display on the bottom four lines of the screen. If the routine is 
entered at line 930, it causes the currently available character 
group (MENSH) to be displayed. 

925 OPEN #1,4, 0, "D: MENU. DAT" : FOR 1=4 

TO 4B3:GET #l,N:POKE MENU+I,N:N 

EXT IrCLOSE #1 

930 MENSH=MENU+160«INT (SHIF/64) : POKE 

DLMEN, INT (MENSH/256) : POKE DLMEN 

-1 ,MENSH-256*PEEK(DLMEN) : RETURN 
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Compile Fontbyter 

Fontbyter will run much more quickly if the BASIC program is 
compiled. Program 8 is listed here for those users who wish to 
make a compiled version. If the lines from Program 8 are added to 
or substituted for lines in Fontbyter, the program will compile 
using Monarch Data Systems' ABC Compiler. 

Program 2. Machine Language Scrolling Subroutine 

900 OPEN #1 ,8,0, "Dl : DISPLAY. SUB" 

910 FOR 1=1 TO 186:READ N:PUT #1,N:N 

EXT I:CLOSE #1:? I : END 
1000 DATA 104,173,49,2,133,206,133,2 

13 
1008 DATA 173,48,2,105,3,133,205,105 
1016 DATA 109,133,212,162,0,161,205, 

41 
1024 DATA 191,133,207,230,205,161,20 

5, 133 
1032 DATA 203,160,1,177,205,133,204, 

200 
1040 DATA 177,212,240,34,201,2,208,1 

6 
1048 DATA 24,165,203,105,1,133,203,1 

65 
1056 DATA 204,105,0,133,204,24,144,1 

4 
1064 DATA 56,165,203,233,1,133,203,1 

65 
1072 DATA 204,233,0,133,204,24,160,3 
1080 DATA 177,212,240,42,201,2,208,1 

9 
1088 DATA 24,165,203,160,0,113,212,1 

33 
1096 DATA 203,200,165,204,113,212,13 

3, 204 
1104 DATA 24, 144, 19, 56, 165, 203\ 160, 
1112 DATA 241,212,133,203,165,204,20 

0, 241 
1120 DATA 212,133,204,24,144,0,160,8 
1128 DATA 165,207,201,5,240,2,160,20 
1136 DATA 162,0,165,203,129,205,230, 

205 
1144 DATA 165,204,129,205,132,207,24 

, 165 
1152 DATA 203,160,0,113,212,133,203, 

165 
1160 DATA 204,200,113,212,133,204,23 

0, 205 
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1168 DATA 230,205,164,207,136,208,21 

9, 165 
1176 DATA 203,129,205,230,205,165,20 

4, 129 
1184 DATA 205,96 

Program 3. Machine Language Line Insert Subroutine 

900 OPEN #1 ,8, 0, "Dl : EXPAND. SUB" 

910 FOR 1 = 1 TO 122-.READ N:PUT #1,N:N 

EXT IiCLOSE #ls? I:END 
1000 DATA 104,166,207,169,0,165,209, 

240 
1008 DATA 29,160,255,177,203,145,205 

, 136 
1016 DATA 208,249,230,204,230,206,16 

4, 208 

1024 DATA 177,203,145,205,136,208,24 

9, 198 
1032 DATA 204,198,206,24,144,9,164,2 

08 
1040 DATA 177,203,145,205,136,208,24 

9, 202 
1048 DATA 240,29,56,165,205,229,208, 

133 
1056 DATA 205,165,206,229,209,133,20 

6, 56 
1064 DATA 165,203,229,208,133,203,16 

5, 204 

1072 DATA 229,209,133,204,24,144,182 

, 165 
1080 DATA 209,240,27,160,255,169,0,1 

45 
1088 DATA 203,136,208,251,230,206,23 

0,204 
1096 DATA 164,208,145,203,136,208,25 

1 , 198 
1104 DATA 206,198,204,24,144,11,164, 

208 
1112 DATA 240,7,169,0,145,203,136,20 

8 
1120 DATA 251,96 

Program 4. Machine Language Line Delete Subroutine 

900 OPEN #1 , 8, 0, "Dl : DELETE. SUB" 

910 FOR 1=1 TO 122:READ N:PUT #1,N:N 

EXT 1 : CLOSE #1:7 I : END 
1000 DATA 104,166,207,169,0,165,209, 
240 
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1008 DATA 29,160,255,177,205,145,203 

, 136 
1016 DATA 208,249,230,204,230,206,16 

4,208 
1024 DATA 177,205,145,203,136,208,24 

9, 198 
1032 DATA 204,198,206,24,144,9,164,2 

08 
1040 DATA 177,205,145,203,136,208,24 

9, 202 
1048 DATA 240,29,24,165,205,101,208, 

133 
1056 DATA 205,165,206,101,209,133,20 

6, 24 
1064 DATA 165,203,101,208,133,203,16 

5, 204 
1072 DATA 101,209,133,204,24,144,182 

, 165 
1080 DATA 209,240,27,160,255,169,0,1 

45 
1088 DATA 205,136,208,251,230,206,23 

0, 204 
1096 DATA 164,208,145,205,136,208,25 

1 , 198 
1104 DATA 206,198,204,24,144,11,164, 

208 
1112 DATA 240,7,169,0,145,205,136,20 

8 
1120 DATA 251,96 




153 



1112 
1 120 
1 128 
1 136 
1 144 
1152 
1 160 
1 168 
1 176 
1 184 
1 192 
1200 
1208 
1216 
1224 
1232 
1240 
1248 
1256 
1264 

1272 
1280 
1288 
1296 
1304 
1312 
1320 
1328 
1336 
1344 

1352 
1360 
1368 
1376 
1384 
1392 

1400 
1408 
1416 
1424 
1432 
1440 

1448 
1456 
1464 
1472 
1480 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 



0, 
0, 
0, 
0, 
0, 
0, 
0, 
3, 
7, 
12 

0, 
0, 
0, 
0, 
0, 
0, 
0, 
51 
40 
26 

0, 
0, 
0, 
0, 
.- 
0, 
0, 
0, 
0, 
0, 

0, 
0, 
0, 
0, 
0, 
0, 



0,0,0,0,0,0,0 
0,0,0, 0, 0,0, 122 
120,0,99,0, 118,0, 98 
110,0, 109, 0, 12,0, 14 
15,0,0,0,0,0,0 
0,0,0,0,0,0,0 
0,0,0, 1,0,2,0 
0,4,0,5,0,6,0 
0, 32, 0,8, 0,9,0 



5, 0, 0, 
0,0,0,0 
0,0,0,0 
37, 0, 50 
53, 0, 41 



63, 0, 124, 0,0,0,0 



0,0,0,0 
0,0,0,0 
, 0, 36, 
,0,42,0 
, 0, 60, 

0,0,0,0 
0,0,0,0 
56, 0, 35 
46, 0, 45 



31,0,0,0,0,0,0 



0,0,0,0 
0,0,0,0 
0,0,0,0 
0,0,0,0 
0,0,0,0 

0,0,0,0 
0,0,0,0 
69, 0, 82 
85, 0, 73 
92, 0, 93 
0,0,0,0 



0,0,0,0,0 
83, 0, 68, 
72, 0, 74, 
123, 0, 94, 
0,0,0,0,0 
0,0,0,0,0 

0, 88, 0, 67 
0, 78, 0, 77 
0,0,0,0,0 
0,0,0,0,0 
0, 



0,0,0,0 
0,0,0 
49, 0, 55 
0, 52, 0, 57 
0,47, 0, 48 



0,0,0 
0, 33, 
38, 0, 39, 
43, 0, 44, 
62, 0, 0, 

0,0,0 
0,0,58 
0, 54, 0, 34 
0, 59, 0, 61 



0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0, 

0,0,0 
81 , 0, 87 
0, 84, 0, 89 
0, 79, 0, 80 
0,0,0,0 
0,0,0 

0, 65, 
70, 0,71,0 
75, 0, 76, 
0, 95, 0, 0, 
0,0,0 
0, 0, 90 
0, 86, 0, 66 
0, 64, 0, 96 
0,0,0 
0,0,0 
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Program 6. Data for Keycode Array 

900 OPEN #1 , 8, , "Dl : CHARDATA. DAT" 
910 FDR 1=1 TO 256:READ N:PUT #1,N: 

EXT I:CLOSE #1: 
1000 DATA 
1008 DATA 
1016 DATA 
1024 DATA 
1032 DATA 
1040 DATA 

1 13 

1048 DATA 25,0,16,23,126,24,28,30 
1056 DATA 102,104,100,0,0,103,115,97 
1064 DATA 44,42,26,0,0,43,60,62 
1072 DATA 47,0,48,53,0,41,63,124 
1080 DATA 54,0,35,0,0,34,56,58 
1088 DATA 4,0,3,6,0 ■ "» 
1096 DATA 
1104 DATA 
1112 
1 120 
1 128 
1 136 
1 144 

1152 DATA 0,0,0,0,0,0,0,0 
1160 DATA 64,0,96,78,0,77,0,0 
1168 DATA 82,0,69,89,0,84,87,81 
1176 DATA 0,0,0,0,0,0,0,0 

83, 65 





Program 7. Clear Subroutine 



900 OPEN #1 , 8, 0, "Dl : CLEAR. SUB" 

910 FOR 1=1 TO 33:READ N:PUT #1,N:NE 

XT I : CLOSE #is? I : END 
1000 DATA 104,104,104,133,208,104,10 

4,101 
1008 DATA 208,133,209,169,0,133,207, 

160 
1016 DATA 255,145,207,136,208,251,14 

5, 207 
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1024 DATA 230,208,165,208,197,209,20 

8, 235 
1032 DATA 96 

Program 8. Altered Lines for Compiler Version 

215 BOSUB 935:RETURN 

275 QN (4*T)+DI GOSUB 280,285,290,29 
5,300, 305,310, 320:GOSUB 935:G0T0 
265 

780 POKE ICC0M+X,32: I=ADR<FL*> : POKE 
ICBADR+X+1 , INT ( 1/256) 

781 POKE ICBADR+X, I-256*PEEK ( ICBADR+ 
X+l):POKE ICBLEN+X,LEN<FL*) : POKE 

ICBLEN+X+1 , 

782 I=USR (ADR ( "hhhBa-VE" ) , X) : RETURN 
920 FOR 1=0 TO 120:POKE 53279, 4:NEXT 

I : RETURN 
935 FOR 1=0 TO 60:NEXT I : RETURN 
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: Screenbyter 



Carl Zahrt and Orson Scott Card 



Here is an artist's utility that lets you create screen displays in any of the 
regular pixel graphics modes — and GRAPHICS "6.5" (XL Mode 14) and 
"7.5" (XL Mode 15) as well. It's simple enough for a child to use. It gives 
you complete control over color, mode, and display size. And a special Fill 
Mode lets you draw long lines or fill large areas with color in moments. 
"Screenbyter" requires 40K memory and a disk drive. 

For color graphics, the Atari home computers are superb. 
Creating screen displays from BASIC, page flipping, scrolling, 
redefining characters, continuous memory, and changing from 
mode to mode to get exactly the effect you want — once you've 
worked with graphics on the Atari, most other home computers 
feel a bit confining. 

But that doesn't mean using Atari graphics is easy, especially 
if you want large displays which extend far beyond the edges of 
the TV screen, or detailed drawings that would take hundreds of 
PLOT and DRAWTO statements to create from BASIC. Such 
things take painstaking work on graph paper and many POKEs 
into screen memory — or a good chunk of your paycheck for soft- 
ware to do it for you. 

"Screenbyter" takes the pain out of creating beautiful 
graphics displays. 

• You can work in any of the non-GTIA pixel modes. 

• You have access to GRAPHICS "6.5" and "7.5" pixel modes 
that cannot be used with a simple GRAPHICS statement. 

• You can type RUN and start drawing with the joystick — no 
programming experience is needed. 

• You can fill in large areas quickly and easily. 

• Since the main action of the program is in machine 
language, it moves very quickly, but a Slow Mode is 
provided so you can do detail work, pixel by pixel. 

• You can change screen colors with the joystick. 

• You aren't always limited by the size of the screen. In 
GRAPHICS 3 you can create scrolling displays many times 
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larger than the TV screen, and all the modes except 7.5 and 
8 allow some scrolling. 
• When you save a display to disk, all the parameters — 
mode, size, and colors — are saved with the screen data, so 
that you can load them directly into your own programs. 

Using Screenbyter 

Setup. Screenbyter begins by displaying a directory of all files 
on the disk with the extender ".PIX". This extender is automati- 
cally added to all files created by Screenbyter. If no directory 
appears, there are no previously saved files on the disk. 

"What file should hold your finished screen? (Eight charac- 
ters)." Respond to this prompt by giving the filename you want 
your new display to have, when you save it at the end of the 
editing session. Screenbyter automatically removes everything 
before a colon or after a period and replaces the characters with 
"Dl:" and ".PIX", so that you need to enter only the eight-letter 
filename. If you use illegal characters, Screenbyter will ask you to 
try again; if you use more than eight characters, only the first 
eight characters will be used. 

If the name you enter is the name of a file already on disk, 
Screenbyter will remind you of that. To change the name, press 
RETURN. Or, if you want your new display to overwrite the old 
file, press any other key to go on. 

"Would you like to edit a screen you have already saved? (Y 
or N)". If you answer Y, Screenbyter asks you for the name of the 
saved file. If the file is not on disk in the form "DV.filename.VlX", 
Screenbyter will tell you and ask you to insert the correct disk or, if 
you wish, ask you again if you want to edit a previously saved 
screen. 

Once the file is found, Screenbyter reads the first four bytes 
of the file to get the mode number, the number of bytes per line, 
and the number of lines in the display as it was saved. Press 
RETURN if you want to change these parameters. Press any other 
key to leave them the same. 

Changing the parameters can have interesting effects. 
Remember that four-color modes all read the bytes the same way; 
if you want to draw your displays in GRAPHICS 3 (ANTIC 8) and 
then display them in a higher four-color mode, you can. 
Changing the length of a file either chops off the bottom or adds 
blank lines at the bottom of the display. Changing the line width, 
however, will usually result in garbage, since the vertical relation- 
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ships will all be changed. The option is included, however, 
because sometimes garbage can be fun, and who are we to forbid 
you to change the line width just because we can't think of a 
reason for doing it? 

If you are not editing a previously saved display, or if you are 
changing the parameters, you get the following series of prompts: 

"What Antic mode will you work in?" This prompt is 
followed by a table, which lists the eight ANTIC pixel modes and 
their graphics mode equivalent. ANTIC 8, for instance, is 
GRAPHICS 3; ANTIC F (15) is GRAPHICS 8. Two ANTIC modes, 
C (12) and E (14), have no graphics equivalent — they are the 
famous "GRAPHICS 6.5" and "GRAPHICS 7.5." (See Table 1.) 
Enter the ANTIC mode number: 8, 9, A (10), B (11), C (12), D (13), 
E (14), or F (15). 

"How wide a line? (Minimum nn byte, maximum nn bytes)." 
Depending on the mode you choose, Screenbyter will give you 
minimum and maximum number of bytes per line. Remember 
that in the four-color modes, each byte is four pixels, while in the 
two-color modes, each byte is eight pixels. The minimum is based 
on the minimum number of bytes required to fill the screen. The 
maximum is based on the widest possible line that will allow the 
display to fit within 4K. If you enter numbers outside the legal 
range, Screenbyter will select the minimum or maximum, as 
appropriate. 

With ANTIC £ and F, the minimum and maximum are the 
same — you have no option, so any number you enter will result 
in the same number of bytes per line. This is because these two 
modes will not scroll — they both require more than 4K. Scrolling 
a screen that crosses a 4K boundary requires elaborate arrange- 
ments of screen memory that were beyond the scope of this 
program. Displays created in E and F will take up 65 sectors on 
disk; all other displays will take up 33 sectors or fewer. 

"How many lines do you want to edit? (Minimum nn, 
maximum nn)". The minimum and maximum depend on the 
mode and the number of bytes per line already selected. Again, if 
you choose parameters outside the legal range, Screenbyter will 
select the minimum or maximum. And if you choose the 
maximum number of bytes per line, only the minimum number of 
lines per screen will be possible. 

When all selections have been made, you are given one last 
chance to change your mind. All the parameters you chose are 
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displayed on the screen. If these are correct, press START, and the 
program will go on. If you want to make changes, press OPTION 
and the program will start over. 

Waiting. What's going on while you wait? Screenbyter config- 
ures the memory to reserve 10K (40 pages) at the top of memory to 
hold screen memory (up to 8K), the display list, and the machine 
language routine that actually puts your drawing on the screen. 
Screen memory is cleared and the machine language routines are 
loaded. If you chose to edit a previously saved screen, it is loaded 
into memory now. All this takes about six seconds. The rest of the 
time is spent writing the display list. The higher the ANTIC 
mode, the longer it takes to write the display list — ANTIC F 
requires about 200 POKEs in BASIC, plus the calculations to find 
out what numbers to POKE, and it can take as long as 20 seconds. 

When Screenbyter is ready for you to edit, there will be a 
cursor in the upper-left-hand corner. 

Moving the cursor. The joystick controls the cursor. 

Drawing a line. Hold down the joystick button to draw; let it 
up to move the cursor without drawing. 

Selecting a color. Press 1 or SHIFT-CAPS/LOWR to select 
Color 1. Press 2 or CONTROL-CAPS/LOWR for Color 2. Press 3 
or SHIFT-CONTROL-CAPS/LOWR for Color 3. Press or CAPS/ 
LOWR to select the background color. Drawing in the background 
color has the effect of erasing. 

Color Mode. To change the actual colors that are displayed 
by Colors 1, 2, or 3, or the background color, press START You 
will hear a buzz, and the cursor will no longer respond to the 
joystick. Instead, moving the joystick will change the colors 
displayed on the screen. Moving the joystick up or right will 
change the color from darker to brighter, then jump to the darkest 
value of the next color. Moving the joystick down or left will 
change the color from brighter to darker, then jump to the 
brightest value of the next color. 

To change the background color, move the joystick forward 
or back; to change Color 3, move the joystick left or right. To 
change Color 2, move the joystick forward or back with the button 
pressed; to change Color 1, move the joystick left or right with the 
button pressed. 

To return to Cursor Mode, press START again. No other 
commands will work during Color Mode. 

Slow Mode. Press the space bar to enter Slow Mode. A delay 
loop in the program makes the cursor move much more slowly 
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around the screen, with a click between moves. This mode allows 
you to create details. To return to Fast Mode, press the space bar 
again. 

Fill Mode. Press the inverse key (Atari logo key) to enter Fill 
Mode. A low hum will come from the television. In this mode, 
when you press the joystick button, Screenbyter draws a dot of 
the selected color at the current cursor location, as usual, but it 
also searches to the right along the same line. If it finds another 
dot of the same color before it reaches the end of the line, it will fill 
in all the area between that dot and the current cursor position 
with dots of the same color. If no dot of the same color is found, 
no fill operation is performed. 

This allows you to fill large or small areas of the screen with a 
single color. Simply draw the right-hand edge of the figure first; 
then enter Fill Mode and draw the left-hand border. It takes some 
practice to use this function without accidentally erasing parts of 
your screen, but you will probably find that this is the most useful 
feature of Screenbyter. 

To exit Fill Mode, press the inverse key again. The hum will 
continue as long as you are in Fill Mode, and will stop only when 
you leave. 

Insert a line. Press SHIFT-INSERT to insert a line at the 
current cursor position. The bottom line of the display will be 
pushed down and lost. 

Delete a line. Press SHIFT-DELETE to delete the current 
cursor line. A blank line will be added at the bottom of the display 

Clear the screen. Press CONTROL-SHIFT-CLEAR to 
completely erase the screen. If you haven't already saved the 
display, it will be lost. 

Saving the screen. Press SELECT to save the screen without 
ending the editing session. The current screen display will be 
saved as "DLTEMPFILE.PIX". You can save as often as you like; 
Screenbyter will simply overwrite any existing TEMPFILE.PIX 
file. 

Ending the editing session. Press OPTION to save the screen 
and end the editing session. (To exit without saving, press 
RESET) The display will be saved as "DLTEMPFILE.SCR." Then 
the regular GRAPHICS screen will return, and you will be given 
several prompts: 

"Do you want to save the screen as DV.filename.FlX? (Y or N)". 
If you answer N, the saved display will be left as TEMPFILE.PIX. 
If you answer Y, Screenbyter will erase any existing file that has 
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the same filename. Then Screenbyter will rename TEMPFILE.PIX 
with the filename you chose. 

"Do you want to quit? (Y or N)". If you answer Y, Screenbyter 
will restore the old top of memory and exit to BASIC. If you 
answer N, you will get another prompt. To return to edit the 
screen you just left, press OPTION. That display will be reloaded 
into memory, the display list will be rewritten, and you can start 
over. To edit an entirely new screen, or to change the name of the 
save file, press START. In effect, Screenbyter will then start over. 

What's Going On inside Screenbyter? 

Like everything else in a computer, your display exists as a series 
of numbers stored in binary form in memory locations in the 
computer. The ANTIC chip scans screen memory as it is 
instructed to do by the display list. But it doesn't read the 
numbers as numbers. Instead, it reads them as patterns of "on" 
and "off" bits. 

Four-color modes. In the four-color modes, each byte is read 
as code for four pixels. The eight-bit binary number is treated as 
four bit-pairs: 

00 00 00 00 
Each bit-pair provides the code for one pixel, or rectangle of color 
on the screen. In GRAPHICS 3, each pixel is the size of a character 
in GRAPHICS 0. In GRAPHICS 7.5, each pixel is one scan line 
high and two color clocks wide, which gives very good resolution. 
But all four-color modes read the bit-pairs the same way. 

00 means to display the background color (the color code 
stored at location 712). 

01 means to display Color 1 (the color code stored at location 
708). 

10 means to display Color 2 (the color code stored at location 
709). 

11 means to display Color 3 (the color code stored at location 
710). 

This means that the number 216 (binary 11011000) is treated as 
four pixel-color instructions: The first pixel is Color 3, the second 
pixel is Color 1, the third pixel is Color 2, and the last pixel is the 
background color. 

Two-color modes. The two-color modes treat each bit as a 
separate pixel instruction, so that each byte controls eight pixels. 
An "on" bit, or 1, is read as a Color 1 instruction, while an "off" bit, 
or 0, is read as a background color instruction. In a two-color 
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mode, the number 216 would be treated as eight pixel-color 
instructions: Two "on" pixels, one "off" pixel, two more "on" 
pixels, and three "off" pixels. (See Table 1 for a listing of all the 
modes.) 

Table 1 . Pixel Modes 



ANTIC mode 


8 


9 


A (10) 


B(ll) 


C(12) 


D(13) 


E(14) 


F(15) 


Graphics mode 


3 


4 


5 


6 


— 


7 


— 


8 


Colors 


4 


2 


5 


2 


2 


4 


4 


2 


Resolution 


24 x 


48 x 


48 x 


96 x 


192 x 


96 x 


192 x 


192 x 




40 


80 


80 


160 


160 


160 


160 


320 


Memory, bytes 


240 


480 


960 


1920 


3840 


3840 


7680 


7680 


(sectors) 


(3) 


(5) 


(9) 


(17) 


(33) 


(33) 


(65) 


(65) 


Lines/screen 


24 


48 


48 


% 


192 


96 


192 


192 


Bytes/line 


to 


10 


20 


20 


20 


40 


40 


40 


Bits/pixel 


2 


1 


2 


1 


1 


2 


2 


1 


(Pixels/byte) 


(4) 


(8) 


(4) 


(8) 


(8) 


(4) 


(8) 


(4) 


Scan lines/pixel 


8 


4 


4 


2 


1 


2 


1 


1 


Color clocks/ 


















pixel 


4 


2 


2 


1 


1 


1 


1 


1/2 



Note: ANTIC C (12) and E (14), the two "hidden" pixel modes, provide the same resolution. 
All the other pixel modes attempt to create as square a pixel as the TV screen allows — the 
same number of color clocks wide as scan lines high. C and E, however, are twice as wide 
as they are high, making each pixel very short and wide. They come very near the 
resolution of ANTIC F (GRAPHICS 8). The advantages are that, compared to F, C uses 
half the memory and £ allows four colors. 

Moving around the screen. Moving the cursor around the 
screen, then, isn't simply a matter of moving from one byte to the 
next in screen memory. Screenbyter also has to move from bit to 
bit or from bit-pair to bit-pair within the bytes. This can be done in 
BASIC by adding or subtracting values, but it is very slow. 
Machine language, however, has powerful commands that make 
it easy to move from bit to bit. DRAWTO and PLOT commands 
do these manipulations for you, but since Screenbyter is circum- 
venting the BASIC graphics commands entirely, the main 
drawing operations are executed in machine language. 

To understand what Screenbyter is doing, you need to 
understand a few machine language commands: EOR, ORA, and 
AND. The two OR instructions and the AND instruction are not 
the same as the AND and OR you use in Atari BASIC. In machine 
language, these are operations on the bits of an eight-bit number, 
and are often called "bitwise" AND and OR to help keep the 
difference in mind. 
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All three operations compare two numbers, one stored in the 
accumulator and another somewhere else in memory. The opera- 
tion results in a third number, which is stored in the accumulator 
in place of the number that was already there. 

AND, referred to as "bitwise AND," compares the two 
numbers, bit by bit. Any bit that is on in both numbers stays on in 
the resulting number. All other bits are turned off. In other words, 
only bits that are on in the first number and in the second number 
remain on in the result. 

10010110 

AND 11110000 

results in 10010000 

ORA, referred to as "bitwise OR," compares the two 
numbers, but in this case any bit that is on in either number stays 
on in the result: 

10010110 

ORA 11110000 

results in 11110110 

EOR, referred to as "exclusive OR," compares the two 
numbers, and any bit that is on in one and only one number is left 
on in the result. Any bit that is on in both numbers or off in both 
numbers is off in the result: 

10010110 

EOR 11110000 

results in 01100110 

How do these actually work, in practice? 

Screenbyter maintains several masks. The Color Mask is in 
page six, at memory location 1692 ($069C). This byte is set from 
BASIC whenever the color is changed, and it is set so that every 
bit or bit-pair represents a pixel of the selected color. If the back- 
ground color is selected, the Color Mask is 00000000. If Color 1 is 
selected, the Color Mask is 01010101. For Color 2, the Color Mask is 
10101010, and for Color 3 it is 11111111. With two-color modes, the 
Color Mask is either 00000000 or 11111111. 

The Cursor Mask is kept at location 1696 ($06A0). It is set to 
represent the current cursor pixel within the cursor byte. The bits 
in the current pixel are on; all others are off. In four-color modes, 
if the cursor is in the leftmost pixel of the cursor byte, the Cursor 
Mask will be set to 11000000; if it is in the rightmost pixel, the 
mask will be set to 00000011. The two middle pixels are 00110000 
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and 00001100. In two-color modes, a single "on" bit represents the 
cursor position. 

Whenever you move the cursor left or right or diagonally, the 
Cursor Mask is shifted left or right, so that at any given moment 
the Cursor Mask will mark which bit or bit-pair Screenbyter 
should change. 

If you are drawing, Screenbyter first picks up the value of the 
current cursor byte and stores it at 1690 ($069 A). Then it picks up 
the Cursor Mask and EORs it with 11111111 (decimal 255). This 
reverses the Cursor Mask — any bit that was on is now off, and 
any bit that was off is now on. 

Let's see that in action in a four-color mode, in which the 
background is black, Color 1 is red, Color 2 is green, and Color 3 is 
blue. The bit-pairs will be separated in these examples, to make it 
easier to keep track of the pixels. 

Cursor Mask 00 1100 00 
EOR 11 11 11 11 
results in 1100 1111 (Reverse Cursor Mask) 

Screenbyter then ANDs the Reverse Cursor Mask with the 
number at 1690 ($069A), which in effect makes a hole in the cursor 
position: 



Reverse Cursor Mask 


11 00 11 11 










AND 


01 01 01 11 


red 


red 


red 


blue 


results in 


01 00 01 11 


red 


— 


red 


blue 



The two bits in the cursor position will ahvays be turned off. 

Now Screenbyter must prepare the pixel code to go in that 
hole. Screenbyter picks up the Cursor Mask and ANDs it with the 
Color Mask. Since all the bits in the Cursor Mask are off except the 
two bits of the current pixel, the resulting number will have only 
the bits that represent the current color, and only in the pixel posi- 
tion: 

Cursor Mask 00 11 00 00 
AND Color Mask 10 10 10 10 green green green green 
results in 00 10 00 00 — green — 

Now we are ready to put the correct pixel code into the hole 
in the current cursor byte. To do this, we bitwise OR the current 
pixel (the one with the cursor byte with a hole in it) we just got 
from the operation before. Remember that with ORA, any byte 
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that is on in either or both of the two numbers is on in the result: 

correct pixel 00 10 00 00 — green — ■ — 
ORA current byte with hole 0100 0111 red — red blue 
results in 01 10 01 11 red green red blue 

The result is then stored in 1690 ($069 A), and later in the program 
it is put into screen memory. 

If you are not drawing, but just moving the cursor, the opera- 
tion is a little different, but AND, EOR, and ORA perform the 
same functions. 

Machine language is so fast that all this seems to happen 
instantaneously. In fact, the only reason the cursor doesn't fly 
around the screen out of control is because Screenbyter keeps 
leaving the machine language routine, returning to BASIC to 
check the keyboard for other commands. Even so, the cursor 
moves so quickly that it has to be slowed down in order to allow 
you to draw details. 

Use of page six. The machine language routine at SCROLL 
uses a field in page six to hold some important variables. The 
memory locations in page six are explained in Table 2. 

Screenbyter Displays in Your Own Programs 

Here are two routines you can add to your own programs, which 
will allow you to load the displays you created with Screenbyter. 
The first routine, Load and Display List, works with any Screen- 
byter file. However, it sets up a custom display list with individual 
LMS instructions, suitable for scrolling. This makes the set-up 
time rather long. So a Simple Load Routine is also included. It will 
work with any display file that was created using the minimum 
line width and number of lines per screen, except screens created 
in ANTIC C and E (GRAPHICS "6.5" and "7.5"). You cannot use 
it if you intend to scroll horizontally. However, you can use it if 
you intend to scroll vertically or flip pages, and your display was 
created with the minimum line width. 

Both routines will configure memory to protect the screen 
display, read the display parameters from whatever display file 
you choose, and load the file into memory. It uses a load routine 
very similar to the one used by Fontbyter, so we won't explain 
them again here. 

Notice that in loading displays created in ANTIC E (14) and F 
(15) (GRAPHICS 7.5 and 8), the screen display must cross a 4K 
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Table 2. Page 6 Memory Locations 



Dec 


Hex 


1670 


0686 


1671 


0687 


1672 


0688 


1673 


0689 


1674-1675 


068A-068B 


1676-1677 


068C-068D 


1678 


068E 


1679 


068F 


1680 


0690 


1681 


0691 


1682 


0692 


1683 


0693 


1684 


0694 


1685 


0695 


1686-1687 


0696-0697 



1688-1689 0698-0699 



1690 


069A 


1691 


069B 


1692 


069C 


1693 


069D 


1694 


069E 


1695 


069F 


1696 


06A0 


1697 


06A1 


1698 


06 A2 


1699 


06A3 


1700 


06A4 


1701 


06A5 


1702-1704 


06A6-06A8 



WIDE - 1 . Used to check for the end of the logical 

line. 

Used in fill routine to keep track of right border 

of fill. 

Cursor location: current byte on logical line. 

Used by the fill routine to hold the pattern of the 

rightmost byte of the fill line. 

LINE - 1 . Used to check for last line of display. 

Cursor location: current logical line number. 

Bytes per screen line — 1 . Used by the scrolling 

routine to check for the end of the screen line. 

Cursor location: current byte on screen line. 

Lines per screen — 1. Used by the scrolling routine to 

check for the bottom of the screen display. 

Cursor location: current screen line number. 

Used by the fill routine to hold the pattern of the 

leftmost byte of the fill line. 

A temporary holding location. 

Used by the fill routine to hold the real value of 

the byte currently being tested. 

A temporary holding location. 

The current screen starting address (the address 

of the upper-left-hand corner of the screen). 

Cursor location: the address of the current cursor 

byte in screen memory. 

The real contents of the current cursor byte. 

The reverse (cursor display) contents of the 

current cursor byte. 

Color Mask. 

The number of bits per pixel (1 or 2). 

Scroll flag (0 = do not scroll). 

Fill flag (0 = do not fill). 

Cursor Mask. 

Joystick value. 

Total number of lines per screen. Used in the 

scroll routine to change the correct number of 

LMS instructions in the display list. 

WIDE. Used in the scroll routine to increment 

the LMS addresses in the display list. 

Fill Test Mask. Used in the fill routine to isolate 

and test each pixel until a pixel of the selected 

color is found. 

Starting Fill Test Mask. Either 192 (four-color 

mode) or 128 (two-color mode). 

Machine language jump vector: JMP followed by 

the address of the fill subroutine held in the 

string FILL$. 



167 



boundary line. The ANTIC chip gets fussy at this point, and 
ignores anything after a 4K boundary line until the beginning of 
the line pointed to by the next LMS instruction. Therefore, screen 
memory must be arranged so that the 4K boundary line comes 
right at the end of a line; the display list routine will have set the 
value of SC, the start of screen memory, so that the 4K boundary 
line will fall right at the end of a line. 

If you have an XL model (600XL, 800XL, 1200XL, 1400XL, or 
1450XLD), ANTIC C and E can be accessed from BASIC using the 
statements GRAPHICS 14 and GRAPHICS 15, respectively. 

Program 1 . Load and Display List Routine 

5 CLR :DIM PPB (7) , BPL (7) ,MXW (7) , LPS ( 
7) ,FL$(20) :FL$="D1:SHIP.PIX":60SUB 
4000 
4000 FOR 1=0 TO 7:READ W, N, C, T: PPB ( I 

)=W:BPL(I)=N:MXW(I)=C:LPS(I)=T: 

NEXT I 
4 005 A=PEEK ( 106) : T0P=A-36: SP=T0P+4: S 

C=SP*256: DL=256*T0P: POKE 106, TO 

P:GRAPHICS 0:PRINT " <. CLEAR 3- " 
4010 X=16: ICC0M=834: ICBADR=B36: ICBLE 

N=840: SCON=PEEK (559) : K4=4096 
4015 OPEN #1,4,0,FL$:BET #l,M:MB=M-8 

: GET #1,WIDE:GET #l,LLO:GET # 1 , 

LHI:LINE=LL0+256*LHI:SZ=WIDE*LI 

NE 
4020 FOR 1=708 TO 711:GET #l,N:POKE 

I,N:NEXT I : POKE I,N 
4 025 SC = SC+ < (LINE* WIDE) >K4) * (K4-INT ( 

K4/WIDE)*WIDE) :SH=INT(SC/256) :S 

L=SC-256*SH 
4030 FOR 1=0 TO 2:P0KE DL+ I , 1 1 2 : NE XT 

I : N = 
4035 FOR I=DL+3 TO DL+3*LPS(M8) STEP 
3: C=SC+N*WIDE: POKE I,64+M:T=IN 

T (C/256) 
4040 POKE I+2,T:P0KE I + 1 , C-256 *T : N=N 

+1 : NEXT I 
4045 POKE I, 65: POKE 1+1,0: POKE 1+2, D 

L/256 
4050 POKE 560,0: POKE 561.DL/256 
4055 POKE ICBADR+X+1 , SH: POKE ICBADR+ 

X,SL:POKE I CBLEN+ X + 1 , 1 + I NT ( SZ / 2 

56): POKE ICBLEN+X,0 
4060 POKE ICCOM+X, 7: I=USR (ADR ( "hhhQL 

VE" ), X) : CLOSE # 1 : RETURN 
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4065 DATA 2, 10, 170,24, 1, 10,85,48,2,2 

0, 85, 48, 1 , 20, 42, 96 

4070 DATA 1,20,21,192,2,40,42,96,2,4 

0,40, 192, 1, 40, 40, 192 

Program 2. Simple Load Routine 

5 CLR :DIM GM ( 15) , FL* (20) :FL$="D1:B8 
.PIX":GOSUB 4000 

6 FOR 1=0 TO 30000: NEXT I 

4000 FOR 1=0 TO 15:READ N:GM(I)=N:NE 

XT I 
4005 A=PEEK<106> :T0P=A-36:SP=T0P+4:S 

C=SP*256: DL=256*T0P: POKE 106, TO 

P:GRAPHICS 0:PRINT "{CLEAR}" 
4010 X=16: ICC0M=834: ICBADR=836: I CBLE 

N=840:9CON=PEEK<55 9) : K4=4096 
4015 OPEN #1 , 4,0, FL*: SET #1,M:GET #1 

,WIDE:GET #1,LL0:6ET #1,LH1:LIN 

E=LL0+256*LHI:SZ=WIDE*LINE 
4020 FOR 1=708 TO 711:BET #l,N:POKE 

I , N: NEXT I : POKE I , N 
4 025 SC = SC+( (LINEtWIDE) >K4) * (K4-INT ( 

K4/WIDE) *WIDE) : SH=INT <SC/256) : S 

L=SC-256*SH 
4030 GRAPHICS GM(M)+16:IF GM(M)=0 TH 

EN ? "INVALID MODE" : RETURN 
4035 DL=PEEK(560)+256*PEEK(56 1) :DL4= 

DL+4: DL5=DL+5: POKE DL4,SL:P0KE 

DL5, SH 
4055 POKE ICBADR+X+1 , SH: POKE ICBADR+ 

X,SL:POKE I CBLEN + X + 1 , 1 + I NT ( SZ / 2 

56):P0KE ICBLEN+X,0 
4060 POKE ICCOM+X , 7: I=USR (ADR < "hhhQL 

VE" ), X) : CLOSE # 1 : RETURN 
4065 DATA 0,0,0,0,0,0,0,0,3,4,5,6,0, 

7,0,0 

Screenbyter 

After the main listing of the BASIC program, you will find several 
programs to create disk files containing the machine language 
routines used in Screenbyter. If you prefer, you can easily add 
these DATA statements to your program and read them that way, 
or — as I prefer to do — load them into string constants and use 
them that way, without so many disk accesses. However, typing 
in strings that have lots of inverse and control characters in them 
can be tedious and often leads to typing errors, so these DATA 
statements are necessary in the published version of the program. 
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If you are also using Fontbyter, you might notice that Screen- 
by ter follows the same structure. That's because Fontbyter was 
used as the starting point, and changed wherever Screenbyter's 
needs were different. However, the line insert, line delete, and 
clear screen machine language routines are not identical, so don't 
try to use the similar Fontbyter routines for Screenbyter — you will 
hopelessly confuse your Atari if you do, and confused Ataris have 
a way of locking up or otherwise expressing their frustration. 

(Arid an acknowledgment: Our thanks to Steve and Tammy 
Rector at the Computer Shop in South Bend, Indiana, for their 
help in keeping this project from getting lost between Taiwan and 
Greensboro.) 

Program 3. Screenbyter 

5 DIM FSAVE* (20) , FLOAD* (20) , FL$ (40) , 
FLL* (20) , DELETE* ( 1 IB) ,EXPAND*(102) 
, N* ( 13) , FILL* (230) , CLEAR* (26) 
10 DIM PPB (7) , BPL (7) , MXW (7) , LPS (7) , C 

DL ( 1 1 ) , CL (3) 
15 A=PEEK ( 106) :TOP=A-40:SP=TOP+8:SC= 

SP*256: DL=256*T0P: SCROLL=DL+600 : P 

OKE 106, TOP 
20 X=16: ICCOM=034: ICBADR=836: ICBLEN= 

840:GRAPHICS : SCON=PEEK ( 559 ) :F=1 

6 70: K4=4096: N*="No equivalent" 
25 C=707:FOR 1=0 TO 7:IF I/2=INT(I/2 

) THEN C=C+1: IF C=711 THEN C=712 
30 COL ( I ) =C: NEXT I : CL ( ) =0 : CL ( 1 ) =85 : 

CL(2)=170:CL(3)=255:FMS = ADR("hhhES 

LVE" ) 
35 RESTORE 770:FOR 1=0 TO 7:READ W , N 

,C,T:PPB(I)=W:BPL(I)=N:MXW(I)=C:L 

PS(I)=T:NEXT I : POKE 16,112:G0T0 3 

15 
40 OPEN #1,4,0,FL$:BET #1,MD:GET #1, 

WD:BET #l,LLO:GET tt 1 , LH I : LN = LL0 + 2 

56*LHI : SZ=WD*LN 
45 FOR 1=0 TO 6 STEP 2:GET #l,N:POKE 

COL ( I ) , N: NEXT I 
50 POKE ICBADR+X+1 , SH: POKE ICBADR+X, 

SL:POKE ICBLEN+X+1, 1+INT (SZ/256) : 

POKE ICBLEN+X,0 
55 POKE ICCOM+X, 7: I=USR (FMS, X ) : CLOSE 

#1 : RETURN 
60 OPEN #1 , 8, 0, "Dl : TEMPFILE. PI X " : PUT 
#1,M:PUT #1,WIDE:PUT #l,LLO:PUT 

#1 , LHI 
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65 


FOR 1=0 TO 6 STEP 




OL ( I ) ) : NEXT I : POKE 




♦PEEK (1689) , PEEK ( 1 


70 


POKE ICBADR+X+1 , SH 




SL:POKE ICBLEN+X+1 




DE) /256) : POKE ICBL 


75 


POKE ICCOM+X ,11:1= 




E #1:RETURN 


80 


IF ( (LINE*WIDE-PI X 




TURN 


85 


C = USR (ADR (DELETE*) 




K (PEEK. ( 1688) +256* P 




53279, 4:ON SPEED 
N 

IF ( (LINEtWIDE-PI X 


90 




TURN 


95 


T=SC+WIDE*LINE-WID 




) : T=T-256*C: POKE 2 


100 


POKE (PEEK (1688)+ 




, PEEK ( 1690) 


105 


C = USR (ADR (EXPAND* 




POKE 53279, 4: ON S 




RETURN 


1 10 


POKE 1690, PEEK (SC 




: POKE 559, SCON: OP 


1 15 


OPT=PEEK( 53279) : I 




SUB 180:GOTO 115 


120 


N=PEEK (632) : C=USR 




<15 THEN POKE 77, 




SOSUB 740: POKE 5 


125 


IF PEEK (753) =3 TH 




TO 115 


130 


ON OPT=3 GOTO 550 




GOSUB 60: GOTO 115 


135 


GOTO 115 


140 


GOSUB 635:0N (C=l 




* (C=246) GOTO 80, 


145 


IF N=60 THEN C = C- 




4) : GOSUB 725 


150 


IF C=31 OR C=30 




THEN GOSUB 720 


155 


IF N=33 THEN SPEE 




OSUB 715 


160 


IF N=39 THEN VERS 




OKE 1695, VERS: GOS 


165 


RETURN 


170 


C=USR (ADR (CLEAR*) 




0:POKE 1691,PEEK( 


175 


GOSUB 715:RETURN 


180 


GOSUB 715 



2:PUT #1,PEEK(C 
PEEK ( 1688) +256 
690) 

:POKE ICBADR+X, 
, 1+INT ( (LINE*WI 
EN+X , 
USR (FMS, X ) : CLOS 

XWIDE) THEN RE 

) : POKE 1690, PEE 
EEK ( 1689) ) : POKE 
GOSUB 740:RETUR 

XWIDE) THEN RE 

E-l : C=INT (T/256 
05,T:POKE 206, C 
256*PEEK ( 1689) ) 

) ) : POKE 1690, 0: 
PEED GOSUB 740: 

) : POKE 1691 , 121 

T = 8 

F OPT=6 THEN GO 

(SCROLL, N) : IF N 
0: IF SPEED THEN 
3279, 4 
EN GOSUB 140:GO 

: IF 0PT = 5 THEN 



16) +2* (C=l 19) +3 

90, 170 

59: SHIF=INT (C/6 

R C=26 OR C=50 

D=l * (SPEED=0) : G 

=255* ( VERS=0) : P 
UB 735 

, SP) : POKE 1690, 
1696) : RETURN 
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185 DI=PEEK(632) :T=PEEK(644) :DI=DI+5 
*(DI=7):DI=DI-11: OPT =PEEK (53279) 
: IF 0PT = 6 THEN 175 
190 IF DK0 OR DI>3 THEN 185 
195 DI=4*T+DI:IF D I /2 = I NT ( D I / 2 ) THEN 
POKE COL (DI ) ,PEEK (COL (DI )> -2+25 
6* (PEEK (COL (DI ) ) <2) : BOTO 185 

200 POKE COL (DI ), PEEK <COL(DI )) +2-256 

* (PEEK (COL (DI )) >253) : GOTO 185 
205 FLL*=FL*:FOR 1=1 TO LEN(FL*):N=A 

SC (FL* ( I , I ) > : ON N=58 GQSUB 245:N 

EXT I:FL*=FLL* 
210 FLL*=FL*:FOR 1=1 TO LEN(FL*):N=A 

SC (FL* ( I , I ) ) : ON N = 46 GOSUB 250: N 

EXT I:FL*=FLL* 



215 IF LEN(FL* 
220 IF LEN(FL* 
225 N=ASC(FL*( 

THEN 260 

230 IF LEN(FL$ 

235 FOR 1=2 TO 

I ) ) : ON (N> 

OR N<48) G 

240 FLL$="D1 : " 

N 
245 FLL$=FL*(I 
250 FLL$=FL$(1 
255 POP :? " iC 

acter 5 in 
260 ? "{CLEAR} 

i th a c ap i 

265 
265 ? "Let's t 

= 1 : RETURN 



) >8 THEN FL*=FL*(1.B) 

) < 1 THEN 265 

1 , 1 > ) : IF N>90 OR N<65 

)<2 THEN GOTO 240 

LEN(FLt) : N=ASC (FL* ( I , 
90 OR N<65) AND ( N >57 
OTO 255:NEXT I 

:FLL*(4)=FL$: N=0 : RETUR 

+1,LEN(FL$) ) :RETURN 

,1-1): RETURN 

LEAR}":? "Illegal char 

";FL$:GQTD 265 

":? FL*;" must start w 

tal":? "letter .": GOTO 

ry that name again. ":N 



270 
275 

280 
285 
290 



TRAP 275:OPEN # 1 , 4 , , FL* : N=0 : CLO 
SE #1:RETURN 

isn't on disk in":? " 



"Insert disk with ";F 
"press RETURN. ": CLOSE 



file name . 



? : ? FL*; " 
drive 1":? 
L*; "and" : ? 

#1 
? "Or to try another 
press anyother key. " 
ON PEEK(753)<>3 BOTO 285:BOSUB 
35:0N N=12 GOTO 270 : N= 1 : RETURN 
TRAP 310:OPEN tt 1 , 4 , , FL* : ? FL*; 

is already on disk.":? "Unless 
you change the name, the old" 
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295 ? "file will be lost. To change 
the namepress RETURN":? "Or pre 

55 any other key to continue, ":C 

LOSE #1 
300 ON PEEK (753) <>3 GOTO 300:BOSUB 6 

35:ON N=12 GOTO 305 : N=0 : RETURN 
305 N=1:RETURN 
310 CLOSE #1 : N=0: RETURN 

315 ? "{CLEfiRxiz spaces > aacaBBSBg ggg " 



320 GOSUB 695:7 :? "What file should 
hold your Hnished{3 SPACESJscr 

een? (Eight characters) ":PDKE 76 

4,255: INPUT FSAVE* 
325 FL*=FSAVE*: GOSUB 205:ON N GOTO 3 

20: FSAVE*=FLL$:FSAVE$ (LEN (FLL$) + 

1 ) = " . P I X " 

330 FL$=FSflVE$: GOSUB 290:ON N GOTO 3 

20 
335 FLOAD*=" ":? :? "Would you like t 

o edit a screen yout3 SPACESJhav 

e already saved? (Y or N) " 
340 GOSUB 635:0N N=35 GOTO 390:ON N= 

43 GOTO 345:G0T0 340 
345 ? :? "What is the name o-f the sa 

ved screen file? " : POKE 764,255 

: INPUT FLOAD* 
350 FL$=FLOAD$: GOSUB 205: ON N=0 GOTO 

355:G0T0 335 
355 FLDAD$=FLL*:FLOAD$(LEN(FLL*)+l)= 

".FIX" 
360 FL$=FLOAD$: GOSUB 270:ON N GOTO 3 

35:0PEN # 1 , 4 , , FLOAD* : GET #1,MD: 

GET #1,WD:GET #1,LL0:GET #1,LHI 
365 CLOSE #1 : FL0AD=1 : LN=LLO+256*LHI 
370 ? :? FLOAD$; " was saved as:":? " 

Mode ";MD ;",":? "with ";LN;" lin 

es":? "of ";WD;" characters per 

line." 

375 ? "If you wish to HmEHJTE these p 
arameterspress RETURN.":? "To le 
ave them HliTdl^l iTj tJ! press any 
<5 SPACES>other key." 

380 ON PEEK (753) <>3 GOTO 380: GOSUB 6 
35: IF N=12 THEN 395 

385 M=MD:M8=M-8:WIDE=WD:LINE=LN:GOTO 
445 

390 FLOAD=0 
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395 ? :? "What Antic mode will you w 
ork in?":? :? "flntic", "Graphics" 
:? 8,3:? 9,4:? "A (10)", 5:? "B ( 
1 1 ) " , 6 

400 ? " C (12)",N$:? "D (13)", 7:? " E 
(14) ",N*:? "F < 15)", 8: POKE 7 64,2 



405 TRAP 405:OPEN 4» 1 , 4 , , " K : " : BET #1 
, N: CLOSE ft 1 S ON N<56 OR (N>57 AND 
N<65) OR N>70 GOTO 405 

410 M=N-4B: M=M-7* (M>9) : M8=M-8 

415 ? :? "How wide a line?":? " (Mi 

nimum " ; BPL ( M8 ) ; " bytes":? " 

<3 SPACES>ma>:imum ";MXW(M8);" by 

tea) " 
420 POKE 764,255:TRAP 420: INPUT WIDE 

: WIDE=INT (WIDE) : GOSUB 640:GOSUB 

745 

425 ? :? "How many lines do you want 
to edit?":? "(Minimum ";LPS(M8) 

; " , Maximum " ; MXL; " ) " 
430 TRAP 430: INPUT LINE 
435 LINE=INT (LINE) : ON LINE<=MXL AND 

LINE>=LPS (M8) GOTO 440 : L I NE=MXL* 

(LINE>MXL)+LPS(M8)*(LINE<LPS(M8) 

) 

LHI=INT (LINE/256) :LL0=LINE-256*L 

HI 

? "{CLEAR}":? "You have chosen:" 

:? "Save file ";FSAVE$:? "Load 

f i le " ; FLOADS 

? "Mode ";M:? LINE;" lines of "; 
WIDE; " characters" 

? "If this is right, press BQiEO 
C9 SPACESJTo make changes, press 

EBaaar" 

ON (PEEK (53279) =6) +(2* (PEEK (5327 
9)=3)) GOTO 465,315:G0T0 460 
? " (CLEAR) Just a minute while I 
get myselfC6 SPACES } together . . 



440 
445 

450 
455 

460 
465 



470 SC = SC+( (LINE*WIDE) >K4 ) * ( K4- I NT ( K 

4/WIDE) *WIDE) :SH=INT(SC/256) :SL= 

SC-256*SH 
475 POKE 1670, WIDE-1 : POKE 1674.LLD-1 

+256* (LLO=0):POKE 1675,LHI-(LLO= 

255) 
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430 POKE 1678, BPL (M8) -1 

S (M8> -1 : POKE 1692, C 

3, PPB (M8> : POKE 1698 
1699, WIDE 
485 GOSUB 755:G0SUB 490 

SUB 650:GOSUB 530:0 
500:GOTO 110 
490 OPEN #1 , 4, 0, "Dl : CLE 

1=1 TO 26:GET #1,N: 

HR$(N):NEXT I : CLOSE 
495 C=USR (ADR (CLEAR*) , S 
500 T=SZ: FL$=FLOAD$: GOS 

TURN 
505 DL4=DL+4: DL5=DL+5: F 

OKE DL.+ I ,112: NEXT I 

) : N=SC-C*256 
510 FOR 1=1686 TO 1688 

,N:POKE I+1,C:NEXT 
515 FOR I=DL+3 TO DL+3* 

3:C=SC+N*WIDE: POKE 

C/256) 
520 POKE I+2,T:PQKE 1+1 

1 : NEXT I 
525 POKE I,65:P0KE 1 + 1, 

/256: RETURN 
530 OPEN #1 , 4, 0, "D: SCRO 

(SCROLL/256) : C=SCRO 
535 POKE ICBADR+X+1 , N: P 

CsPOKE ICBLEN+X+1,3 

X, 
540 POKE ICCOM+X, 7: I=US 

E #1 
545 POKE 560,0: POKE 561 

#1 : RETURN 
550 POKE PEEK ( 1688) +256 

EEK ( 1690) : GOSUB 60 

KE 764,255 
555 ? "Screen is saved 

E.SCR":? :? "Do you 
the screen as":? F 

r N) " 
560 GOSUB 635: ON N<>43 

O 560: IF N=43 THEN 

570 
565 FSAVE=0 
570 ? :? "Do you want t 

N) " : POKE 764, 255 
575 GOSUB 635: ON N<>43 

575: ON N=35 GOTO 

OTO 605 



.-POKE 1680, LP 
L (3) : POKE 169 
, LPS (M8> : POKE 

: GOSUB 505: GO 
N FLOAD GOSUB 

ARS. SUB" : FOR 
CLEAR* ( I , I ) =C 

#1 
P) : RETURN 
UB 40:SZ=T:RE 

OR 1=0 TO 2:P 
: C=INT (SC/256 

STEP 2: POKE I 
I :N = 

LPS(M8) STEP 
I , 64 + M: T=INT ( 

, C-256JT: N=N+ 

0:POKE 1+2, DL 

LL. SUB" : N=INT 
LL-256*N 
OKE ICBADR+X, 
:POKE ICBLEN+ 

R (FMS, X) :CLOS 

, DL/256: CLOSE 

*PEEK ( 16S9) , P 
GRAPHICS 0:PO 

as D1:TEMPFIL 

want to save 

SAVE*; "7 ( Y o 

AND N< >35 GOT 
GOSUB 610:GOT 



o quit? (Y or 

AND NO 35 GOT 
580: ON N=43 G 
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580 

585 

590 
595 

600 

605 

610 

615 
620 

625 
630 
635 

640 

645 

650 

665 

680 

690 

695 



pres 
OPT = P 
0PT = 3 
POKE 
POKE 
X " : I F 
GOSUB 
E 560 
POKE 

0: EN 
FSAVE 
VE*: C 
*: XIO 
CLOSE 
FL*=" 
E* <4, 
X IO 3 
ON PE 
C = PEE 
ORN 
IF WI 
8) TH 
WIDE = 
M8) * ( 
OPEN 
1 = 1 T 
= CHR$ 
OPEN 
1 = 1 T 
= CHR$ 
OPEN 

TO 2 
<N> : N 
CLOSE 
6) : C = 
703, C 
TRAP 



M T 

en 
"T 

s 

EE 
) ) 
10 
10 
F 
7 

10 
D 

= 1 
LO 
3 
4t 
Dl 
LE 

*- j 
EK 
K ( 



o return to edit the same 
, <!4 SPACESJpress EESSXCI" : 
o start SCREENBYTER over, 

aOGTHi" 

K(53279):0N ( ( 0PT=6 ) + ( 2 * ( 
) GOTO 590,595:GOTO 585 
6,A:GRAPHICS 0:BOTO 20 
6,T0P:FL*="D1:TEMPFILE.PI 
SAVE=1 THEN FL$=FBAVE$ 
55: GOSUB 40: GOSUB 505: POK 
: POKE 561 , DL/256: GOTO 110 
6,A:P0KE 764 , 255 : GRAPH I CS 



:TRAP 615:0PEN 
SE #2:XIO 36, *2 
3, #2, 0, 0, FSAVE* 



2,4,0, FSA 
0,0, FSAVE 
GOTO 620 



:TEMPFILE.PIX, ":FLL$=FSAV 
N(FSftVE$) ) :FL$(17)=FLL$ 
#1 , 0, 0, FL$: RETURN 
(753) <>3 GOTO 630: RETURN 
764) :N=C-64*INT(C/64) :RET 



DE>=BPL(M8) AND WIDE<=MXW(M 
EN RETURN 

MXW(M8)*<WIDE>MXW(M8))+BPL( 
WIDE<BPL(M8) ) : RETURN 
#1,4,0, "D: DELETES. SUB" : FOR 
O 118:GET # 1 , N : DELETE* < I , I ) 
(N) : NEXT I : CLOSE #1 
#1 ,4,0, "D:EXPANDS.SUB":FOR 
O 102:GET # 1 , N : EX PAND* < I , I ) 
(N) : NEXT I: CLOSE #1 
#1 , 4, 0, "D: FILL. SUB" : FOR 1=1 
30:GET #1 , N: FILL* ( I , I ) =CHR* 
EXT I 

#1:C=ADR(FILL*) :N=INT(C/25 
C-N*256:POKE 1702,76:POKE 1 
:POKE 1704, N: RETURN 
710:XIO 36,#1,0,0,"D1:*.PIX 



700 ? :? "Currently saved screen fil 

es : " 
705 FL*="D1 : *. PI X " : OPEN #1,6,0,FL*:F 

OR 1=0 TO 50: INPUT #1,FLL*:7 FLL 

*:NEXT I 
710 CLOSE ttlsRETURN 
715 FOR 1=0 TO 10:POKE 53279, 4:NEXT 

I : RETURN 
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7 20 SHIF=(C=31)+2*(C=30)+3*(C=26) 
725 POKE 53279, 4 : POKE 1 692 , CL ( SH I F ) : 

IF PPB(M8)=1 AND SHIF>0 THEN SHI 

F = 3:P0KE 1 692 , CL < SH I F ) 
730 RETURN 
735 N= <VERS=255) : SOUND , 200*N , 1 4*N , 

4*N: RETURN 
740 FOR 1=0 TO 10:NEXT I : RETURN 
745 IF BPL (M8) = MXW <M8> THEN MXL=LPS( 

M8> : RETURN 
750 MXL=INT (K4/WIDE) : RETURN 
755 FOR 1=1677 TO 1681 STEP 2:P0KE I 

,0:NEXT I:FOR 1=1686 TO 1688 STE 

P 2:P0KE I,SL:POKE I+1,SH:NEXT I 

760 N=128+64* (PPB <M8) =2) : POKE 1696, N 

:POKE 1701, N 
765 POKE 1672,0:POKE 1 676 , : VERS = : 6 

OSUB 735:P0KE 1 695 , VERS : RETURN 
770 DATA 2,10,170,24,1,10,85,48,2,20 

, 85, 48, 1 , 20, 42, 96 
775 DATA 1,20,21,192,2,40,42,96,2,40 

,40, 192, 1,40,40, 192 

Program 4. Insert Line Routine 

900 OPEN #1 , 8, 0, "Dl : EXPANDS. SUB" 

910 FOR 1=1 TO 102:READ N:PUT #1,N:N 

EXT I : CLOSE #1:7 I : END 
1000 DATA 104,56,165,205,237,163,6,1 

3 3 
1008 DATA 203,165,206,233,0,133,204, 

56 
1016 DATA 173,138,6,237,140,6,133,20 

7 
1024 DATA 173,139,6,237,141,6,133,20 

8 
1032 DATA 165,208,240,5,162,255,24,1 

44 
1040 DATA 2,166,207,172,163,6,177,20 

1048 DATA 145,205,136,208,249,202,24 

0,3 1 
1056 DATA 56,165,205,237,163,6,133,2 

05 
1064 DATA 165,206,233,0,133,206,56,1 

65 
1072 DATA 203,237,163,6,133,203,165, 

204 
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1080 DATA 233,0, 133,204,24, 144,212, 1 

65 
1088 DATA 208,208,206, 172, 163,6, 169, 


1096 DATA 145,203,136,208,251,96 

Program 5. Delete Line Routine 

900 OPEN #1 ,8,0, "Dl: DELETES. SUB" 

910 FOR 1=1 TO 118:READ N:PUT #1,N:N 

EXT I:CLOSE #1:? I : END 
1000 DATA 104,56,173,152,6,237,136,6 
1008 DATA 133,203, 173, 153,6,233,0, 13 

1016 DATA 204,24,165,203,109,163,6,1 

3 3 
1024 DATA 205,165,204,105,0,133,206, 

56 
1032 DATA 173,138,6,237,140,6,133,20 

7 
1040 DATA 173,139,6,237,141,6,133,20 

8 
1048 DATA 165,208,240,5,162,255,24,1 

44 
1056 DATA 2,166,207, 172, 163,6, 177,20 

5 
1064 DATA 145,203,136,208,249,202,24 

0, 31 
1072 DATA 24,165,205,109,163,6,133,2 

05 
1080 DATA 165,206,105,0,133,206,24,1 

65 
1088 DATA 203,109, 163,6, 133,203, 165, 

204 
1096 DATA 105,0,133,204,24,144,212,1 

65 
1104 DATA 208,208,206,172,163,6,169, 


1112 DATA 145,205,136,208,251,96 

Program 6. Cursor Movement Routine 

900 OPEN #1 , 8, 0, "Dl : SCROLL. SUB" 

910 FOR 1=1 TO 650:READ N:PUT #1,N:N 

EXT I : CLOSE #1:7 I : END 
1000 DATA 104,104,104,141, 161,6, 173, 

152 
1008 DATA 6,133,207,173,153,6,133,20 
8 
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1016 


DATA 


160, 0, 140, 158,6, 173, 154, 6 


1024 


DATA 


145, 207, 173, 161,6,41,8, 240 


1032 


DATA 


92, 173, 161, 6, 41, 4, 208, 71 


1040 


DATA 


172, 157, 6, 173, 160, 6, 42, 176 


104B 


DATA 



DATA 

6 

DATA 


8, 136, 208, 250, 141, 160, 6, 24 


1056 


54, 42, 136, 208, 252, 141, 148, 


1064 


173, 136, 6, 208, 2, 240, 40, 173 


1072 


DATA 


148,6, 141, 160, 6, 56, 173, 136 


10B0 


DATA 


6, 233, 1, 141, 136, 6, 56, 173 


1088 


DATA 


152, 6, 2 33, 1, 141, 152, 6, 173 


1096 


DATA 


153, 6, 233, 0, 14 1 , 153, 6, 173 


1 104 


DATA 


143, 6, 240, 6, 20 6, 143, 6, 24 


1112 


DATA 


144, 99, 17 3, 158, 6, 9, 8, 141 


1 120 


DATA 


158, 6, 24, 144, 88, 172, 157, 6 


1 128 


DATA 

8 

DATA 

36 

DATA 

6 

DATA 


173, 160, 6, 106, 176, 8, 136, 20 


1 136 


250, 14 1 , 160, 6, 240, 71 , 106, 1 


1 144 


208, 252, 141 , 148, 6, 173, 136, 


1 152 


205, 134, 6, 208, 2, 2 40, 54, 173 


1160 


DATA 


148, 6, 141 , 160, 6, 24, 173, 136 


1 168 


DATA 


6, 105, 1, 141, 136, 6, 24, 173 


1 176 


DATA 


152, 6, 105, 1 , 141 , 152, 6, 173 


1 184 


DATA 


153, 6, 105, 0, 14 1 , 153, 6, 173 


1 192 


DATA 


143, 6, 205, 14 2, 6, 240, 6, 238 


1200 


DATA 


143, 6, 24, 144, 8, 173, 158, 6 


1208 


DATA 


9,4, 141, 158, 6, 173, 161,6 


1216 


DATA 


41,1, 240, 83, 173, 16 1,6,41 


1224 


DATA 


2, 208, 62, 173, 140, 6, 205, 138 


1232 


DATA 


6, 208, 8, 173, 14 1,6, 205, 139 


1240 


DATA 


6, 240, 124, 24, 173, 140, 6, 105 


1248 


DATA 


1, 141, 140, 6, 173, 141,6, 105 


1256 


DATA 


0, 141, 141, 6, 24, 173, 152, 6 


1264 


DATA 


109, 163,6, 141, 152,6, 173, 15 


1272 


DATA 


6, 10 5,0, 141, 153,6, 173, 145 


1280 


DATA 


6, 205, 144, 6, 240, 6, 238, 145 


1288 


DATA 


6, 24, 144, 75, 173, 158, 6, 9 


1296 


DATA 


1, 141, 158, 6, 24, 144, 64, 173 


1304 


DATA 


140, 6, 208, 5, 173, 14 1,6, 240 


1312 


DATA 


54, 56, 173, 140, 6, 233, 1, 141 


1320 


DATA 


140, 6, 173, 141,6, 233, 0,141 


1328 


DATA 


141, 6, 56, 173, 152, 6, 237, 163 


1336 


DATA 


6, 141, 152, 6, 173, 153, 6, 233 


1344 


DATA 


0, 141, 153, 6, 173, 145, 6, 240 


1352 


DATA 


6, 206, 145, 6, 24, 144, 8, 173 
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1360 DATA 
1368 DATA 



158,6,9,2, 

152, 6, 133. 



141 , 158, 6, 173 
207, 173, 153, 6, 13 



1376 DATA 208,173,132,2,240,36,160,0 
1384 DATA 177,207,141,154,6,73,255,4 



1392 
1400 
14 08 
1416 

1424 
1432 
1440 
1448 
1456 
1464 
1472 
1480 
1488 
1496 
1504 
1512 

1520 
1528 
1536 
1544 
1552 
1560 

1568 
1576 

1584 

1592 

1600 
1608 

1616 

1624 

1632 

1640 
1648 



DATA 

DATA 

DATA 

DATA 

55 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

6 

DATA 

DATA 

74 

DATA 

D 

DATA 
, 205 
DATA 
DATA 

,6 

DATA 

204 

DATA 



DATA 

208 

DATA 

DATA 



160, 6, 14 1 , 155, 6, 173, 160, 6 
73, 255, 45, 154, 6, 13, 155, 6 
141, 155, 6, 173, 158, 6, 2 40, 40 
208, 41 , 160, 0, 177, 207, 141,1 

6, 173, 156, 6, 45, 160, 6, 141 
161,6, 173, 160, 6, 73, 255, 45 



155 
141 
24, 
173 
173 
173 
173 
173 
173 
173 



,6, 141, 155,6, 13, 161,6 
, 154,6, 173, 158, 6, 208, 3 
144, 98, 41 , 8, 240, 17, 56 
, 150, 6, 233, 1 , 14 1 , 150, 6 
, 151,6, 233 , 0,141,151,6 
, 158, 6, 41 , 4, 2 4 0, 1 7 , 24 
, 150, 6, 105, 1, 141, 150, 6 
, 151,6, 105, 0, 141 , 151,6 
, 158,6,41, 1, 240, 18, 24 
, 150, 6, 109, 163, 6, 141 , 15 



6, 173, 151,6, 105, 0, 141, 151 
6, 173, 158,6,41,2, 240, 24 
56, 173, 150, 6, 237, 163, 6, 141 
150, 6, 173, 151, 6, 233, 0, 141 
15 1 ,6, 24, 144, 3, 24, 144, 67 
173, 150, 6, 13 3, 203, 173, 151, 

133, 204, 24, 173, 48, 2, 105, 4 
13 3, 205, 173, 4 9, 2, 13 3, 2 06, 1 

162,6, 160, 0, 165, 203, 145, 20 

20 0, 165, 204, 145, 205, 24, 165 

105, 3, 133, 205, 165, 206, 105,0 
133, 2 06, 24, 165, 203, 109, 163 

133, 203, 165, 204, 105, 0, 133, 

202, 208, 2 15, 173, 155, 6, 160, 

145, 2 07, 173, 159, 6, 201, 255, 

8, 173, 132, 2, 208, 3,32, 166 
6, 96 
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Program 7. Clear Screen Routine 

900 OPEN #1 , 8, 0, "Dl : CLEARS. SUB" 

910 FOR 1=1 TO 26:READ N:PUT #1,N:NE 

XT I:CLOSE #1:? I : END 
1000 DATA 104,104,104,133,208,162,32 

, 169 
1008 DATA 0,133,207,160,255,145,207, 

136 
1016 DATA 208,251,145,207,230,208,20 

2, 208 
1024 DATA 238,96 



Program 8. Fill Subroutine 



900 OPEN #1 , 8, 0, "Dl : FILL. SUB" 

910 FOR 1 = 1 TO 230:READ N:PUT 4* 1 , N : N 

EXT I:CLOSE #1:7 I : END 
1000 DATA 173,136,6,141,135,6,173,15 

4 
1008 DATA 6,141,146,6,165,207,133,20 



1016 DATA 165,208,133,204,162,0,173, 

160 

1024 DATA 6,14 1,148,6,172,157,6,78 

1032 DATA 148,6,176,52,136,208,248,1 

7 3 

1040 DATA 146,6,45,148,6,141,149,6 

1048 DATA 173,156,6,45,148,6,205,149 

1056 DATA 6,240,20,141,149,6,173,148 

1064 DATA 6,73,255,45,146,6,13,149 

1072 DATA 6,141,146,6,24,144,205,173 



207, 141 , 154, 6, 96 
205, 134, 6, 240, 24 



1080 DATA 146, 6, 129, 

1088 DATA 173,135,6. 

7 

1096 DATA 238,135,6,24,165,203,105,1 

1104 DATA 133,203,165,204,105,0,133, 

204 

1112 DATA 161,203,14 1,148,6,173,165, 

6 

1120 DATA 141,164,6,173,164,6,45,148 

1128 DATA 6,141,149,6,173,164,6,45 

1136 DATA 156,6,205,149,6,240,13,172 

1144 DATA 157,6,78,164,6,176,193,136 

1152 DATA 208,248,240,223,172,157,6, 

14 

1160 DATA 164,6,176,29,136,208,248,1 

73 

1168 DATA 164,6,45,156,6,141,149,6 
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1176 DATA 173,164,6,73,255,45,148,6 

1184 DATA 13,149,6,141,148,6,24,144 

1192 DATA 219,162,0,173,148,6,129,20 

1200 DATA 173,146,6,129,207,141,154, 

6 

1208 DATA 56,173,135,6,237,136,6,240 

1216 DATA 12,168,136,240,8,173,156,6 

1224 DATA 145,207,136,208,251,96 
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Moving the Display 



Michael P Surh 



A variation on the techniques which allow screen flipping also makes 
possible screen scrolling — even horizontally. Here's how. 

The Atari computers are capable of moving their display memory 
(that is, the section of memory storing the screen display), and 
they can have more than one section of display memory stored at 
the same time. This feature is particularly useful for graphics 
displays and can be used for animation. It is possible to move the 
entire screen so that everything you see on the screen moves too, 
and the technique can be used to create smoother animation and 
drawing than would otherwise be possible. 

Before you try the following programs which demonstrate 
these tricks, you should have some understanding of how the 
Atari display works. The Atari has two separate registers that 
control where it keeps its display (the display list) in the overall 
computer memory. These registers work by storing the address of 
the first memory location used by the display list. The computer 
puts all of the screen data into the memory starting at that first 
address, and also reads the numbers stored there to display 
images on the screen. Since what you see on the screen is stored 
in this memory section, it is possible to modify the display 
directly by using POKEs instead of the usual BASIC commands 
PRINT, PLOT, and DRAWTO. 

If this is news to you, try Program 1 to modify a GRAPHICS 
screen with POKEs. This program begins by printing the 
address for the start of the display list as read from both of the 
registers (see lines 20 through 50). Then the program POKEs 
numbers from to 255 into successive locations in the display list. 
All of the alphanumeric and graphics characters appear on the 
screen. Also, try changing the graphics mode on fine 10 (but 
remove line 40 if the graphics mode is not mixed with a 
GRAPHICS text window). This program works on any graphics 
mode, but its effects are different with various modes. At times 
this graphics technique is better than using PRINT or PLOT and 
DRAWTO because it is faster, even though it is more difficult. 

185 



The program works because the computer keeps the display 
of characters or graphics points stored as numbers in the reserved 
display memory. Each number stored there corresponds to a char- 
acter or some graphics points on the screen. Whenever the 
computer prints or draws something, it is going into this memory 
section and changing something (this is what Program 1 did, 
without using PRINT or DRAWTO). Changing the display list 
changes the screen because the computer also reads this memory 
section from start to finish and sends it to the screen 60 times 
every second. 

Controlling Display Memory 

The two registers that store the location of the display list tell the 
computer where to read from or write to the display memory; 
without them, the computer would not be able to find it. There is 
a good reason for storing the display address in two locations — 
this allows sophisticated graphics and animation. Both of the 
registers act as pointers to the display memory, and they both 
store its starting address, but one pointer controls where the 
computer goes to write in the memory, and the other tells the 
computer where to start reading the information to be displayed. 
If you remember, the computer must do both operations to put the 
display on your screen, and it has a pointer for each function. 

The pointer controlling all writing to the screen is located at 
88 and 89 in the memory, but the second pointer's location 
depends on your computer's memory size and the graphics mode 
you are using. See Program 1, line 20, to find out how to locate 
the pointer; its position is the variable PNTR and PNTR + 1. 

Usually the two pointers store the same address, so if the 
computer prints something on the third line, the information 
appears on the third line of the screen in exactly the same place as 
it was written in the display list. But if you change one of the two 
pointers, when the computer wants to read or write on the display 
memory and goes to what it thinks is the start of the memory 
section, it is in the wrong location. As a result, the information 
appears in the wrong place. 

Program 2 demonstrates what happens when you change the 
pointer controlling where the computer writes into the memory. 
The program starts by printing the word left all the way down the 
left margin of the screen. Then it clears the screen and starts over, 
but this time it changes the number stored in 88 each time it prints 
a word. The computer still prints on the left margin (at least it 
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thinks it does!), but the words are stored in the memory offset 
from their correct positions, so they appear in the wrong places on 
the screen. 

Once the computer is given the wrong starting address, 
everything it prints afterward will appear in the wrong place. This 
is because the computer starts at the location specified by the 
register in 88 and 89 and counts through the memory until it is 
where it wants to print. If it starts in the wrong place, it winds up 
in the wrong place, and whatever is printed or drawn is in a 
different spot on the screen. If you want to prove that the 
computer is starting in the wrong place, hit BREAK (not SYSTEM 
RESET). The READY prompt and anything you type will line up 
at the new margin, and the lines will overlap onto both sides of 
the screen. 

Notice that whatever was written on the screen before loca- 
tion 88 was changed did not move; only the words printed after 
the change are displaced. Also, it is not always possible to print at 
the bottom of the screen, and it sometimes becomes impossible to 
use the PLOT function after the numbers in 88 or 89 have been 
changed. Since I can find no way to remedy these problems, I see 
little use for this even though it is an interesting trick. 

The other pointer tells the computer where to start reading the 
display memory. Changing the address stored here is much more 
interesting, because it makes the computer start reading in the 
wrong place, and the entire screen shifts. By controlling how 
much the pointer changes from its original value, you can make 
everything on the screen seem to move horizontally or vertically. 

Unfortunately, it is not very practical to move the screen 
vertically because garbage is sometimes displayed. You can see 
this in Program 3, which changes the pointer to move any 
graphics mode horizontally. This pointer is stored in a variable 
because it is placed just before the start of the display memory, 
and the display memory's location depends on the graphics mode 
and your computer's memory size. 

Moving the Screen 

When you try this program, you may notice certain features of the 
moving screen. First, in any of the mixed graphics modes, the text 
window of GRAPHICS at the bottom of the screen remains 
stationary as the rest of the screen moves. In GRAPHICS 8 and 8 
+ 16, only the top half of the screen moves while the bottom is at 
rest. Also, the screen jumps each rime the loop is reexecuted, and 
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as the program runs through the loop, part of the screen fills with 
apparently random data (garbage). Last of all, the edge of the 
screen that moves out of view horizontally reappears on the other 
side of the screen. 

The text window of GRAPHICS in the mixed graphics 
modes does not move because it has its own pointer to control the 
start of its display memory. This is also true for the bottom half of 
a GRAPHICS 8 or 8 + 16 display. Check Table 1 to find where to 
POKE to move the bottom half of GRAPHICS 8 and the text 
window for each of the mixed graphics modes. 

There is an advantage to this added complexity. Not only can 
you move part of the screen and leave the rest still, but you can 
also move the different parts in different directions or at different 
rates. In GRAPHICS 8 you can actually move all three parts at 
different speeds at the same time. 

That cures the problem of unmoving parts of the screen, but 
there are still more problems. When the program finishes its loop 
and starts over again, there is a large and noticeable jump on the 
screen. Also, there are unusual problems with the top of the 
screen; unwanted garbage occasionally appears or part of the 
display disappears off the top. This is particularly noticeable in 
GRAPHICS through 2, which are text modes. Strange charac- 
ters can appear, and if you erase them the display goes haywire. 

You can reduce the jump in the screen each time the loop is 
run. Change the loop in line 70 to match what is in Table 2 for the 
particular graphics mode. This also remedies the occasional 
appearance of mysterious characters at the top of the screen. 
Unfortunately, this means that the top line will periodically 
disappear and reappear. You could leave it blank to keep this 
unnoticed. 

Still, the method is satisfactory for the higher resolution 
graphics modes where the screen "bumps" are less obvious. And 
by carefully adapting the loop, you might find a decent compro- 
mise. 

I Try the programs included with this article, and experiment 
with different graphics modes to get an idea of the possibilities 
and limitations of these unusual features. 
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Table 1. Where to POKE to Move Parts of the Screen 

To Move GR.O 

Text Window in: POKE into PNTR - 4 + 

GR.l 26 or 27 

GR.2 16 or 17 

GR.3 26 or 27 

GR.4 46 or 47 

GR.5 46 or 47 

GR.6 86 or 87 

GR.7 86 or 87 

GR.8 168 or 169 

To move lower part of GR.8, POKE into PNTR - 4 + 100 or 101 . 



Table 2. Smoothing the Horizontal Motion of the Screen 

Graphics Change Line 70 to 

Mode FOR LOOP = 

X TO X + 39 

1 X TO X + 19 

2 X TO X + 19 

3 X TO X + 9 

4 X TO X + 9 

5 X TO X + 19 

6 X TO X + 19 

7 X TO X + 39 

8 X TO X + 39 



Program 1. Display Using POKE 

O REM ******* PROGRAM1 ******* 

10 GRAPHICS O 

20 SCR1=PEEK <88> +256*PEEK (89) 

30 PNTR = PEEK <560) +256*PEEK (561 ) +4 

35 SCR2=PEEK (PNTR) +256*PEEK (PNTR+1 ) 

40 2 SCR1,SCR2 

45 FOR PAUSE=1 TO 500: NEXT PAUSE 

50 FOR LOOP=0 TO 255 

60 POKE SCR2+LOOP, LOOP 

70 NEXT LOOP 

80 GOTO 80 
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Program 2. Changing the Pointer to Screen Memory 

REM PROGRAM 2 

10 GRAPHICS 

20 FOR LOOP=l TO 20 

30 ? "LEFT" 

40 NEXT LOOP 

50 FOR PAUSE=1 TO 500: NEXT PAUSE 

60 ? CHR*<125> 

70 FOR LOOP=l TO 20 

80 ? "LEFT" 

90 POKE 88, PEEK (SB) +1 

100 NEXT LOOP 

110 GOTO 110 



Program 3. Moving Horizontally 

O REM PROGRAM 3 

10 GRAPHICS O 

20 FOR L00P=1 TO 100 

30 POSITION RND ( 1 ) *30, RND ( 1 ) *20: ? "*" 

:REM FILL SCREEN WITH ASTERISKS 
40 NEXT LOOP 
50 PNTR = PEEK (560) +256*PEEK <561 > +4: REM 

LOCATION OF READ POINTER 
60 X=PEEK (PNTR) : REM STARTING POINT OF 

SCREEN 
70 FOR LOOP=0 TO 255 
80 POKE PNTR, LOOP: REM CHANGE ADDRESS 

IN POINTER 
90 FOR PAUSE=1 TO 10: NEXT PAUSE 
lOO NEXT LOOP 
llO GOTO 70 
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Screen Flipping 

Michael Kirtley 

Here's another way to rapidly "flip" screens. 

This useful subroutine can be appended to your own BASIC 
programs. It lends them a cleaner, more professional look. The 
screen-flipping routine can be used to include a page or two of 
documentation with your program or to switch to a menu 
instantly. Another intriguing use would be to flip rapidly between 
several screens to create animation. 

When you first run the program, there will be a brief pause as 
the Atari writes screen two. Then you will see screen one being 
written. 1 intentionally left this in to contrast between writing a 
screen and flipping to a previously written one. This effect can be 
eliminated by POKEing 559 with a to turn off the video display 
until the screen has been written. Another advantage in using this 
POKE is a significant increase in execution speed. You can try this 
by adding the following lines to the program: 

130 R=PEEK (559) : POKE 559,0 
180 POKE 559, R 

Another embellishment to the program would be to write 
screen one and show it to the user. While the user is viewing 
screen one, the computer could be writing screens two, three, etc. 

A small "beep" sound subroutine placed just before the POKEs 
on lines 220 and 230 will give a crisper effect upon flipping screens. 
I've found the following routine to be a good one for this purpose. 

250 SOUND 0, 100, 10, 15: FOR X=l TO 20:NEXT X 
260 SOUND 0, 0, 0, 0: RETURN 

Now let's look at how the program works. 
Lines 100-120: Initialize variables. Locations 560 and 561 hold the 
low and high bytes of the address of the display list. Location 742 
is the high byte of the top of memory pointer. Location 89 is the 
high byte of the lowest address of screen memory. 
Line 140: Tell the Atari where to write screen two. Before writing 
screen two, clear the screen. 

Line 150: Write screen two. You can substitute your own applica- 
tion here. 
Line 160: Tell the Atari where to write screen one. 
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Line 170: Write screen one. 

Line 190: GET a keyboard response from the user. 

Line 200: GOTO whichever screen the user selects. 

Line 210: Go back and get another keyboard response if the user 

picks a screen we don't have. 

Line 220: POKE the location of screen one into the correct place in 

the display list (DL + 5). This is where the Atari looks to find 

where the current screen is located. 

Line 230: POKE the location of screen two into the display list. 

Additional screens can be added (depending on memory size 
and the application program) by stepping down four 256-byte pages 
from the location of the previous screen. In graphics mode there 
are 24 lines with 40 one-byte characters each, for a total of 960 bytes. 
This is a little less than four pages (1024 bytes). Therefore, if 

SCREEN2 = MEMTOP-5 then 

SCREEN3 = MEMTOP-9 and 

SCREEN4 = MEMTOP-13 etc. 

To make room for screen two, you must step down five pages 
from MEMTOP to avoid garbage on the screen. To add additional 
screens, initialize as above, then POKE 89 with the new screen 
and POKE 106 with the new screen + 4. You will now be able to 
write the new screen. To view the screen, just POKE DL + 5 with 
the new screen. 

Now enter the program and run it. Press 1 for screen one and 
2 for screen two. 

Screen Flipping 

lOO DL=PEEK(560)+256*PEEK<561> 

HO MEMTOP=PEEK (742) 

120 SCREEN1=PEEK <S9) : SCREEN2=MEMTOP-5 

140 POKE 89, SCREEN2: POKE 106.SCREEN2+ 

4:2 CHR*<125> 
ISO FOR X=l TO 22:2 "********* THIS I 

S SCREEN 2 *********": NEXT X 
160 POKE 89, SCREEN1 : POKE 106.SCREEN1+ 

4: 2 CHR$ ( 125) 
170 FOR X=l TO 22:7 " SCREEN 

1 GOES HERE ":NEXT X 

190 OPEN #1 , 4,0, "K: " : GET # 1 , X : CLOSE # 

1:X=X-48:IF X<1 THEN 190 
200 ON X GOTO 220,230 

210 GOTO 190 

220 POKE DL+5, SCREEN1 : GOTO 190 

230 POKE DL+5, SCREEN2: GOTO 190 
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Artifacting 



Judson Pewther 



These tools for exploring artifacting can create some of the most beautiful 
graphics you've ever seen from your Atari. 

Even if you are not already familiar with the phrase television arti- 
facts, you have probably noticed that the colors of points and 
lines drawn in Atari's graphics mode 8 are not always what they 
are supposed to be. (False colors may also appear in graphics 
modeO.) 

Although the BASIC Reference Manual claims that only "one 
color and two different luminances" are available in GRAPHICS 
8, in fact six distinguishable color/luminance combinations are 
possible because of TV artifacting. 

While the BASIC Reference Manual does not mention this very 
interesting fact, it is fully documented in De Re Atari, Appendix 
iy which gives the definition: "The term TV artifacts refers to a 
spot or 'pixel' on the screen that displays a different color than the 
one assigned to it." And, as further explained, TV artifacts are 
caused by the way in which color and luminance information is 
modulated onto an NTSC television signal. 

Let's summarize the effects of artifacting in GRAPHICS 8: 

1. The effect is maximized by plotting a light color (high lumi- 
nance) on a dark background, or dense dark patterns on a 
light background. 

2. The color of a pixel is not affected by its Y-coordinate. 

3. The color displayed by a pixel depends not only on its 
assigned color, but also on whether its X-coordinate is even or 
odd, and on the color assigned to its horizontal neighbors. 

4. Horizontal resolution has a practical limit of 160 rather than 
320. Thus, two horizontally contiguous pixels tend to form a 
single pixel of uniform color. 

What colors are actually produced? This can depend on the 
particular TV monitor being used and on the exact setting of its 
controls. The setting of the tint control will make the biggest 
difference. 
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The major effects of plotting white (the assigned color) pixels 
on a black background are summarized in the following table. N 
is the number of horizontally contiguous white pixels. X is the X- 
coordinate(s) of these pixels in terms of "even" and "odd." 
COLOR is the approximate actual color displayed by these pixels, 
assuming normal settings on the TV monitor. 
N X Color 



1 

1 


even 
odd 


green 
blue 


2 
2 
3 
4 


even-odd 
odd-even 


orange 
light blue 
nearly white 
white 



The Table Illustrated 

Program 1 illustrates artifacts by drawing two series of nearly 
vertical white lines on a black background. Colored horizontal 
bands are produced in accordance with the rules in the previous 
table. No actual white is produced in this example, because there 
are at most only pairs of horizon tally contiguous "white" pixels. 
Notice in particular that the solid-color bands are created either 
because all the "even" pixels give a solid green, or all the "odd" 
pixels give a solid blue. 

Lines 199 to 250 can be added to allow the user to easily step 
the assigned hue through all 16 possibilities, while preserving the 
luminance setting for the background and the 14 luminance 
setting for the plotted lines. The background color may be nearly 
invisible because it is at luminance, but the colors in the hori- 
zontal bands will change greatly. Remember that in GRAPHICS 8 
the hue associated with the COLOR 1 statement and with the 
lines that were drawn is the background hue as determined in the 
SETCOLOR 2,hue,0 statement. Even when we are not seeing the 
assigned hue because of TV artifacting, changing the assigned 
hue changes the displayed hues. 

Best results are obtained by adjusting TV brightness and 
contrast to a low or minimum value. TV color may be boosted 
somewhat, but too much boost blurs the picture. However, the 
tint control may be adjusted freely from one extreme to the other 
to vary the colors. These comments apply generally to any 
program where TV artifacts are used. 

TV artifacts are really a failure of resolution, but a very inter- 
esting failure. And the colors produced can add dazzle to graphics 
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art programs. Although these false colors may at times be 
annoying, and although the failure in horizontal resolution is 
certainly an annoyance, TV artifacts compensate considerably for 
the fact that only two intensities of a single color are officially 
available in GRAPHICS 8. 

Moire Patterns 

Program 2 is a graphics art program which relies on artifacts for 
its beauty It also makes use of a technique for creating enhanced 
moire patterns. 

To see a somewhat different moire pattern with a more 
uniform distribution of light and enhanced contrasts in the 
details, add the following line and run the program again: 

50 COLOR 0:PLOT 159,0:DRAWTO X+1,191 

This program step draws a black line which cancels out half 
(or more) of the "white" pixels which were plotted in the previous 
step, line 40. This basic idea is varied and elaborated in Program 
3, "Pyramid." 

Program 3 is designed so that slow typists (like myself) will 
not have to type in the whole thing just to see what it does. The 
first half of the program (lines 100 through 470) is almost entirely 
for the purpose of letting the user control the parameters of the 
pattern in order to see better how the various effects are achieved. 
To eliminate some typing, replace the first half of the program 
with the single line: 100 GRAPHICS 24. Then begin typing at line 
500. 

The program is essentially self-explanatory, but it might be 
worthwhile to point out a few things. Lines 500 to 545 select a set 
of random parameters for the pattern that is about to be drawn. 
LIGHT and DARK are associated with the subroutine for drawing 
a set of vertical lines at line 1000 in the program. They are dual 
purpose variables: if equal to or 1, then a set of "even" or "odd" 
lines will be drawn, but if greater than 1 the subroutine will not be 
called. So the probability is .25 that LIGHT will call the subrou- 
tine, since it is a random integer ranging from to 7. The same 
applies to DARK. 

LIGHT lays down a colored background for the pattern, but 
has a slightly different effect if the old pattern has not been wiped 
out by line 730. DARK erases all colors in the pattern except for 
black and another color, just before the program recycles to select 
a new set of random parameters. 
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Line 535 works in conjunction with line 740 to insure that the 
new values of MODE, APEX, and SPACE are not exactly the same 
as the old values. 

Line 550 prevents the attract mode from setting in as long as 
the program continues to recycle through new variations. 

Except for the user option to hold a pattern indefinitely (lines 
450 and 720), there are no forced time delays. It takes about a 
minute for the program to make one cycle, which should be more 
than enough time to observe a variation of the pattern. If you 
wish to freeze a particular pattern, program execution may be 
stopped and restarted by hitting CTRL 1. 

Program 4 illustrates TV artifacts by way of a dense pattern of 
dark lines drawn on a light background. Equally spaced rays are 
drawn from each of the four corners of a square to the opposite 
two sides. The light-colored pixels left over after this process is 
finished form a cross made out of four trumpet-shaped segments, 
corresponding roughly to what my dictionary identifies as a 
"formee" cross. The display is quite dazzling if one first adjusts 
for a pleasing color combination, and then turns out the lights in 
the room. 

Program 1 . Artifacts 

10 GRAPHICS 8:C0L0R 1 

20 SETCOLOR 1 , , 1 4 : SETCOLOR 2,0,0 

30 FOR X=0 TO 318 STEP 4 

40 PLOT X,0:DRAWTO X+l , 159: NEXT X 

50 FOR X=0 TO 308 STEP 4 

60 PLOT X,0:DRAWTQ X+9,159:NEXT X 

199 REM *** CHANGE HUE *** 

200 OPEN #1,4,0, "K: " 

210 ? :? "ASSIGNED HUE IS NOW ";H 

220 ? "HIT H KEY TO CHANGE HUE" 

230 GET #1,X: IF X<>72 THEN 230 

240 H=H+1:IF H=16 THEN H=0 

250 SETCOLOR 2,H,0:GOTO 210 



Program 2. Simple Moire 

10 GRAPHICS 24 

20 SETCOLOR 1 , , 1 4 : SETCOLOR 2,0,0 

30 FOR X=0 TO 318 STEP 3 

40 COLOR l:PLOT 159,0:DRAWTO X, 191 

60 NEXT X 

70 GOTO 70 
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Program 3. Pyramid 



100 GRAPHICS 0:POKE 82, 5: POSITION 9, 
2:? "*** THE PYRAMID ***":PRINT 

112 ? "ADJUST TV CONTRAST AND" 

113 ? "BRIGHTNESS TO MINIMUM.":? 

114 ? "ADJUST TV COLOR AND TINT" 

115 ? "TO SUIT INDIVIDUAL TASTE.":? 
120 ? "YOUR CHOICE: " 

130 ? " (0) RANDOM PARAMETERS" 

140 ? " (1) USER CONTROLLED PARAMET 

ERS" 
150 TRAP 150: INPUT CHOICE: IF CHOICE= 

THEN GRAPHICS 24: GOTO 500 
160 IF CHOICEOl THEN 150 
170 ? :? "DRAW BACKGROUND OF VERTICA 

L LINES?" 
18 ? " ( ) EVEN LINES" 
190 ? " (1) ODD LINES" 
200 ? " (2) NO BACKGROUND" 
210 TRAP 210: INPUT LIGHT: IF LIGHT=2 

THEN 230 
220 IF LIGHTO0 AND LIGHTOl THEN 21 


230 ? :? "DRAW PYRAMID IN MODE" 
240 ? " (0) FROM CENTER OUTWARD" 
250 ? " (1) FROM LEFT TO RIGHT" 
260 TRAP 260: INPUT MODE 

270 IF MODEO0 AND M0DE<>1 THEN 260 
280 ? :? "FOR APEX OF PYRAMID USE" 
290 ? " (0) ONE POINT" 
300 ? " (1) TWO POINTS" 
310 TRAP 310: INPUT APEX 

320 IF APEX<>0 AND APEXOl THEN 310 
330 ? :? "SPACING OF RAYS FROM APEX? 

340 ? "(USUALLY AN INTEGER: 2 TO 6>" 

350 TRAP 350: INPUT SPACE: IF SPACE< 1 

THEN 350 

360 ? :? "DRAW DARK VERTICAL LINES?" 

370 ? " (0) EVEN LINES" 

380 ? " (1) ODD LINES" 

390 ? " (2) NO LINES" 

400 TRAP 400: INPUT DARK: IF DARK=2 TH 

EN 420 

410 IF DARK< >0 AND DARKOl THEN 400 

420 ? :? "WHEN FINISHED" 

430 ? " (0) GOTO RANDOM PARAMETERS" 

440 ? " <1> HOLD THE PATTERN" 
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450 TRAP 450: INPUT HOLD 

455 IF HOLD=0 THEN GRAPHICS 24:G0TQ 

600 
460 IF HOLDO0 AND HOLDOl THEN 450 
470 POKE 82,2:? :? "WHEN PATTERN IS 

FINISHED" 
475 ? "HIT {SM33E TO CHANGE HUE." 
480 ? :? "READY? HIT START KEY." 
490 IF PEEK (53279X >6 THEN 490 
495 TRAP 40000: GRAPHICS 24:G0T0 600 

497 REM 

498 REM *** RANDOM PARAMETERS*** 

499 REM 

500 LIGHT=INT (RND (0) *B) 
510 MODE=INT (RND (0) *2) 
520 APEX=INT (RND (0) *2) 
530 SPACE=2+INT (RND (0) *5) 

535 IF MODE=M AND APEX=A AND SPACE=S 

THEN 510 
540 DARK=INT (RND (0) *8) 
545 HUE=INT (RND (0) *16) 
550 POKE 77,0:REM RESET ATTRACT MODE 

597 REM 

598 REM *** PROGRAM EXECUTION *** 

599 REM 

600 SETCOLOR 2 , HUE , : SETCOLOR 1,0,14 
620 IF LIGHT>1 THEN 640 

630 COLOR 1 : B=LIGHT: GOSUB 1000 

640 IF MODE=0 THEN GOSUB 2000 

650 IF MODE=l THEN GOSUB 3000 

660 REM *** DRAWTO SIDES *** 

670 FOR K=191 TO 1 STEP -SPACE 

680 COLOR l:PLOT 1 59 , APEX : DRAWTO 318 

,K:PLOT 159, APEX: DRAWTO 0,K 
690 COLOR 0:PLOT 159,0:DRAWTO 318, K- 

l:PLOT 159,0:DRAWTO 0,K-1:NEXT K 
700 IF DARK>1 THEN 720 
710 COLOR 0: B=DARK: GOSUB 1000 
720 IF HOLD=l THEN 4000 
730 IF RND(0)<0.2 THEN GRAPHICS 24 
740 M=MODE: A=APEX: S=SPACE 
750 GOTO 500 

998 REM 

999 REM *** SUBROUTINE VERTICAL LINE 
S 

1000 FOR K = B. TO 319 STEP 2 

1010 PLOT K,0:DRAWTO K,191:NEXT K 
1020 RETURN 

1998 REM 

1999 REM *** SUB STARTS FROM CENTER 
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2000 


FDR K=0 TO 158 STEP SPACE 


20 10 


COLOR l:PLOT 159,0:DRAWTO 159+K 




,191:PL0T 159, 0: DRAWTO 159-K.19 

1 

COLOR 0:PLOT 1 59 , APE X : DRAWTO 16 


2020 




+ K, 191 : PLOT 1 59 , APE X : DRAWTO 15 




8-K, 191 


2030 


NEXT K:RETURN 


2998 


REM 


2999 


REM *** SUB DRAWS LEFT TO RISHT 


3000 


FOR K=0 TO 318 STEP SPACE 


3010 


COLOR l:PLOT 1 59 , APEX : DRAWTO K, 




191 


3020 


COLOR 0:PLOT 159,0:DRAWTO K+1,1 




91:NEXT K:RETURN 


4000 


REM 


4001 


REM *** ALLOWS USER TO CHANGE 


4002 


REM *** HUE WHEN PATTERN IS ON 


4003 


REM *** HOLD BY HITTING H KEY. 


4010 


OPEN #1,4,0, " K: " 


4020 


SET #1,X:IF X=72 THEN HUE=HUE+1 


4030 


IF HUE=16 THEN HUE=0 


4040 


SETCOLOR 2, HUE, 0: GOTO 4020 



Program 4. Cross 



40 REM *** PROGRAM 4: JEWELED CROSS 

50 GRAPHICS 0:POSITION 8,2:? "THE JE 
WELED CROSS":? :? 

55 ? "WHEN PATTERN IS FINISHED ":? 

60 ? "TURN ROOM LIGHTS DOWN TO GET" 

70 ? "THE EFFECT OF A STAINED GLASS" 

80 ? "WINDOW. " : ? 

90 ? "HIT H KEY TO CHANGE HUE AND/OR 

95 ? "ADJUST TV TINT CONTROL.":? 
100 ? "DIAMETER OF SQUARE?" 
110 ? "(MAXIMUM OF 4*47— TRY 4*46)" 
120 TRAP 150:? "4*";: INPUT DIAM:DIAM 

=4*DI AM 
130 IF DIAM<1 OR DIAM>188 THEN 150 
140 TRAP 40000: GOTO 300 
150 PRINT CHR* (253) : GOTO 50 
300 REM *** DEFINE CORNERS OF SQUARE 
310 XL0=INT(159.5-DIAM/2) : XHI=XLO+DI 

AM 
320 YLO=INT (95. 5-DI AM/2) :YHI=YLO+DIA 

M 

349 REM 

350 REM *»* DRAW BACKGROUND *** 
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360 

410 
420 
449 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
599 
600 
610 
620 
630 
640 
1000 



6RAPHI 
LOR 1 , 
FOR X = 
PLOT X 
REM 

REM ** 
COLOR 
PLOT X 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
NEXT K 
REM 

REM ** 
OPEN # 
GET #1 
IF HUE 
SETCOL 
GOTO 



CS 24:SETC0L0R 2,0,0:SETCO 

0,14: COLOR 1 

XLO TO XHI 

,YLO:DRAWTO X,YHI:NEXT X 

* DRAW CROSS *** 
0:FOR K=0 TO DIAM STEP 4 
LO, YLO: DRAWTO XHI,YHI-K 
LO, YLO: DRAWTO XHI-K.YHI 
HI , YLO: DRAWTO XLO,YHI-K 
HI , YLO: DRAWTO XLO+K,YHI 
HI , YHI : DRAWTO XLO,YLO+K 
HI , YHI : DRAWTO XLO+K,YLO 
LO, YHI : DRAWTO XHI,YLO+K 
LO, YHI : DRAWTO XHI-K,YLO 



* CHANGE HUE:HIT H KEY *** 

1 , 4 , , " K : " 

, X:IF X=72 THEN HUE=HUE+1 

=16 THEN HUE=0 

OR 2,HUE,0:GOTO 620 

1000 
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Positioning 
Player/Missile and 
Regular Graphics 
in Memory 



Fred Pinho 



Strange things indeed can appear on your display if memory is not 
protected properly for player I missile graphics. These charts should help 
you avoid memory conflicts in your Atari. 

Have you ever used player/missile graphics only to notice funny- 
looking colored lines or dots on the screen with your carefully 
crafted images? When you moved your player or missile, these 
lines and dots seemed to acquire a life of their own. While it was 
fascinating to watch this "extra" display it also quickly became 
frustrating to your programming attempts. The problem is that all 
the instructional articles I've seen tell you that you must step back 
in RAM a minimum of IK (four pages) for double-line resolution 
and 2K (eight pages) for single-line resolution. They either ignore, 
or barely mention in passing, the important fact that you must 
also allow for the screen display memory in this calculation. 

The Atari uses two blocks of memory to control the TV 
screen display. Residing at the very top of RAM is the display 
data. This block of memory contains a bitmap for the TV screen in 
graphics modes 3-8 and a character map for text modes 0-2. 
Residing just below the display data is the display list. This block 
of memory is essentially a short program that tells the Atari how 
to set up the TV screen for the desired mode. The total memory 
required for the display list and display data varies with the 
graphics mode used. This is illustrated in Table 1. As you can see, 
the highest resolution mode, GRAPHICS 8, requires the most RAM. 

Thus, the explanation for the "extra bonus" lines or dots in 
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Table 1. Memory Required for Display List and Display Data 





TOTAL MEMORY BYTES ALLOCATED TO 




Memory Step- 
Back To Be 
Added To 


DISPLAY DATA 


DISPLAY LIST 


Bottom 


Unused Bytes 


Text or 






GRAPHICS 


Text 




Graphics 
Screen 


Unused 


Used 


Total 


P/M Step- 
Back, Pages t 


MODE* 


Window 


Always 


Conditional 


Bytes 


Bytes 


Bytes 





none 


none 


none 


960 


none 


32 


992 


4 


1 


160 


none 


80 


400 


none 


34 


674 


3 


2 


160 


none 


40 


200 


none 


24 


424 


2 


3 


160 


none 


40 


200 


none 


34 


434 


2 


4 


160 


none 


80 


400 


none 


54 


694 


3 


5 


160 


none 


160 


800 


none 


54 


1174 


5 


6 


160 


none 


320 


1600 


none 


94 


2174 


9 


7 


160 


none 


640 


3200 


96 


94 


4190 


17 


8 


160 


16 


1280 


6400 


80 


176 


8112 


32 



*If 16 is added to the GRAPHICS mode number, then the conditional unused bytes are added to the screen memory block. The bytes 
formerly used for the text window then become unused. Also the display list expands slightly. 
tTo be added to player/missile step-back pages. 



> I | » * t \ \ I I » » >»>>>> I » I » J > J I 



your P/M display is that the program did not step back far enough 
into RAM and consequently located the P/M data in the display 
data memory area. The Atari then obediently displayed this data 
both from the normal display and through the P/M system. Since 
the display data is displayed as a number of bytes per line (Table 
2), you will see a line of varying colored dots. By contrast, the P/M 
display is organized to display the bytes in a "stack" arrangement 
and so you see the desired figure (possibly as you designed it). 

To aid you in using P/M graphics, Table 1 gives the number of 
pages that must be stepped back in memory (from the top of avail- 
able RAM) to avoid interference between the two systems. For 
those not familiar with the concept of paging, the memory 
addressing system of the 6502 microprocessor within the Atari is 
based on the concept of a memory page. Each page is equivalent to 
256 bytes of memory. Thus there are four pages of memory in 
each K (1024 bytes) of memory. 

Note that, in calculating the step-back value for Table 1, a 
restriction must be observed: positioning for the P/M RAM must 
be on a IK boundary for double-line resolution and on a 2K 
boundary for single-line resolution. If you position the P/M 
memory incorrectly, the P/M data will not be displayed. Since the 
Atari will be equipped with a varying amount of memory, it must 
be able to keep track of the amount available so that it knows 
where to locate the display data and display list. This is done at 
memory location 106 (RAMTOP). If you PEEK this location, you'll 
find the number of pages, not the number of bytes, in your machine. 
You can get the number of bytes by multiplying by 256. 

POKEing into this location can be very useful for the 
programmer. One example is the location of large machine 
language programs that must be placed in a secure location that is 
not touched by BASIC. One way to accomplish this is to POKE a 
lower number of pages into RAMTOP fooling the computer into 
believing that it has less memory than is the case. Then you can 
load your machine code in this safe hiding place, yet still access it 
when needed. 

Another use is as a safe location for a redefined Atari char- 
acter set. Again, there is one restriction. The relocated display 
data cannot cross a 4K boundary (graphics modes up to 7). If you 
don't observe this restriction, you'll find that you will be unable to 
plot and draw on part of the screen. RAMTOP for GRAPHICS 8 
must be lowered in multiple 4K blocks. If you try it otherwise, 
you'll see weird and unwanted displays on your screen. 
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Thus, two methods for storing P/M data are: 

1. Beneath the display list 

2. Above a lowered RAMTOP 

An example calculation for method one is shown below. However, 
it is tedious to have to calculate each time you program, so I've 
provided Table 3 for your use. This table gives the correct number 
of pages to offset the P/M system for either method of storage. 
I hope these tables aid you in using the P/M and graphics 
systems. The systems are powerful, and their use will result in 
increasingly sophisticated displays. 



Table 2. Example of P/M Positioning in Memory 

Assume you wish to run P/M graphics mode 7. You want to use 
all four players, so all of the player/missile memory must be free 
and clear of the Screen Display memory. 

Required Step-Back 
In Memory, Pages 

GRAPHICS 7, Screen Display (Table 1) 17 

P/M graphics, single-line resolution (requires 2K) 8 

Total = 25 pages 

However, 25 pages is not on a 2K boundary: 

6K = 24 pages 
8K = 32 pages 

Therefore, you must step back 32 pages for proper positioning of 
the P/M system. 
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Table 3. Player/Missile Positioning 





Above RAMTOP* 


Beneath 


Display Listt 


Graphics 


Double 


Single 


Double 


Single 


Mode 


Resolution 


Resolution 


Resolution 


Resolution 





4 


8 


8 


16 


1 


4 


8 


8 


16 


2 


4 


8 


8 


16 


3 


4 


8 


8 


16 


4 


4 


8 


8 


16 


5 


4 


8 


12 


16 


6 


4 


16 


16 


24 


7 


12 


16 


24 


32 


8-11 


16 


16 


36 


40 



'Number of pages to lower RAMTOP Locate PMBASE at new RAMTOE 
tLocate PMBASE at indicated offset (in pages) below RAMTOP 

Notes 

1. RAMTOP (location 106) defines the top of available memory. 
The display data lies just beneath RAMTOE The display list 
resides just beneath the display data. 

2. When lowering RAMTOE the display data memory area must 
not cross a 4K boundary. RAMTOE for GR.8 must always be 
lowered in 4K increments. 

3. Flayer/missile offsets are calculated by observing the following 
restrictions for the location of FMBASE: 



Offset from any other data 
Boundary location for PMBASE 



Double 


Single 


Resolution 


Resolution 


IK 


2K 


IK 


2K 
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Memory Protection 



Jim Clark 



Player/ missile graphics, redefined character sets, screen flipping, and 
machine language subroutines all create a need for protected areas of 
memory. This article cavers several ways of handling the problem and 
gives you a program that protects low memory. 

On the Atari, a problem arises in applications requiring a portion 
of memory to be protected from BASIC. For example, most 
machine language subroutines need protection. The problem is 
that BASIC is likely to use memory anywhere within available 
RAM, thus writing over the machine language subroutine and 
destroying it. 

In many computers it is possible to protect memory at the 
"high" end, that is, at the highest RAM address. The Atari uses 
high memory for the data which is displayed on the screen. If you 
attempt to protect memory above the screen display by reducing 
the high memory value that BASIC thinks it has, then you cannot 
clear the screen or scroll text in any of the split-screen modes 
because these actions affect memory bei/ond the screen display 
area. These actions cause no problem when the screen display is 
actually the last thing in memory, because they apply to non- 
existent memory However, if you want to use memory beyond 
the screen display for your own purposes, then your data will be 
damaged by any action in your program which clears the screen 
or scrolls text in a text window. 

Another alternative is to protect low memory. The main 
problem with this approach is that the memory protection must 
be done before BASIC gets control, since BASIC starts saving any 
program you enter beginning at the low memory address. The 
program shown here solves this problem as follows: it takes 
control of the Atari with a machine language subroutine and 
resets the system's low memory pointer. It then reinitializes 
BASIC — just as if you had pressed the SYSTEM RESET key — and 
BASIC takes control again, blissfully unaware that it now has less 
RAM to work with than it did before you ran this program. 

To find the address of the memory you have protected, type 
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?PEEK(743) + 256*PEEK(744) before you run this program. The 
number printed can be used as the origin for a machine language 
subroutine, or as the destination address for whatever data you 
want to store in the protected area. 

When you run the program, it asks how much memory you 
want to protect. Type in any positive number which is less than 
the amount of RAM you have available, as determined by typing 
?FRE(0). The program reinitializes BASIC, and if you type 
?PEEK(743) + 256*PEEK(744) again, the number printed will be 
greater than the value shown before running the program: the 
difference is the amount you requested to be protected. The 
memory area will remain protected until you turn the computer 
off, and the area can be used for machine language subroutines, 
redefined character sets, player/missile graphics objects, or any 
other use you might wish. 

Memory Protection 

90 rem sagas aan aggaa aDBgc 

100 REM ** LOAD MACHINE LANGUAGE SUBR 

OUTINE ** 
110 P6MSI Z=24: DIM SUBR* ( PGMS I Z > 
120 FOR 1=1 TO PGMSIZ 
130 READ BYTE 
140 SUBR* < I ) =CHR$ (BYTE) 
150 NEXT I 
200 REM t* GET AMOUNT OF MEMORY TO PR 

OTECT ** 
210 ? "How many bytes do you want to 

protect " ; 
220 INPUT PROTECT 
2 30 HI=INT(PR0TECT/256> :L0W=PROTECT-2 

56*HI 
240 SUBR$(6,6)=CHR$(L0W) 
250 SUBR* ( 14, 14) = CHR* (HI ) 
300 REM ** REINITIALIZE BASIC WITH TH 

E NEW LOW MEMORY POINTER ** 
310 Z=USR (ADR (SUBR*) ) 
400 REM ** MACHINE LANGUAGE SUBROUTIN 

E * * 
410 REM MEMLO =$02E7 ; BOTTOM OF AVAILA 

BLE USER MEMORY 
420 REM WARMST=*OS; WARM START FLAG 
430 REM CARTA =*A000; BASIC CARTRIDGE 

ENTRY POINT 
4 4 REM 
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IS COMPLETELY REL 
STARTING ADDRESS 



FOR ADDITION 



450 REM THE PROGRAM 

OCATABLE, SO NO 

IS PROVIDED 
470 REM 

500 REM CLC ; INITIALIZE 
510 DATA 24 
520 REM LDA MEMLO ; ADD LE AST -S I GN I F I C 

ANT BYTES 
530 DATA 173,231,2 
540 REM ADC #PRDTECTS($FF 
550 DATA 105,0 
560 REM STA MEMLO 
570 DATA 141,231,2 
580 REM LDA MEMLO+1 ; ADD MOST-SIGNIFI 

CANT BYTES 
590 DATA 173,232,2 
600 REM ADC #PROTECT/256 
610 DATA 105,0 
620 REM STA MEMLO+1 
630 DATA 141, 232, 2 
640 REM LDA #0 ; RESET THE WARM START 

FLAG 
650 DATA 169,0 
660 REM STA WARMST 
670 DATA 133,8 
680 REM JUMP CARTA 

AGAIN 
670 DATA 76, O, 1 60 
999 END 



;START BASIC OVER 



210 



Beware the 
RAMTOP Dragon 



K. W. Harms 



While the previous article showed how to protect low memory, this one 
tackles the problem of shielding high memory. 

You've just had a brilliant idea for a program which requires some 
protected memory. Perhaps a special display list or character set is 
needed, or maybe a direct access memory "file." This article 
explains how to set aside that memory so that nothing will fiddle 
with it. Further, we'll reveal the generally unknown habits of the 
RAMTOP Dragon and show you three ways to make sure he 
doesn't gobble up your data. 

The Atari offers a simple way to control how memory is inter- 
nally managed by the operating system. In the previous article, 
Jim Clark shows how to move the lower boundary. Both Clark's 
method and the one discussed here protect memory from BASIC 
programs. 

The map gives a very simple picture of Atari's memory 
management. Fixed memory boundaries are presented in decimal 
"addresses," but boundaries which vary according to the amount 
of memory in your machine or the program loaded at a particular 
time are given names such as "RAMTOP " The 400 and 800 both 
use the same system. 

When you turn on the Atari with a BASIC cartridge, it takes a 
few seconds before "READY" to check out the machine and enter 
values for the boundaries into specific locations. PEEK allows you 
to look at those values. For instance, the value for RAMTOP is 
stored in address 106. The instruction"? PEEK(106)" will tell you 
where the Atari thinks the end of RAM is. Appendix I of the Atari 
BASIC Reference Manual explains that the value in 106 is in "pages" 
of 256 bytes. Multiplying number of pages times 256 gives the last 
address BASIC thinks it can use (for example, a PEEK(106) of "32" 
equals an address of 8192 or "8K"). 
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The 400/800 always places the display list and display data 
immediately below RAMTOE If you alter the value in RAMTOE 
the Atari will push the display list and display data "downward" 
in RAM. This reduces the space available for your program, but 
leaves free RAM above the new (fake) RAMTOE Since the Atari 
doesn't know about this space, it doesn't use it, usually. This is the 
space usually considered "reserved" for you. 

Erogram 1 shows how to lower RAMTOE by four pages (1024 
bytes). Remember to issue a GRAFHICS command immediately 
after moving RAMTOE so that the display list and data are moved 
below the new RAMTOE Since line 60 will clear the screen, write 
down the old amount of free RAM and RAMTOE Comparing 
them to the new numbers from lines 80 and 90 will show that 
RAMTOE is now lower and that less space is available for 
programs. That extra memory is now above RAMTOE and 
"reserved" for your exclusive use. RAMTOE is reset only by the 
RESET switch (and powering down/up), so that successively 
RUNning Erogram 1 will keep lowering RAMTOE until you run 
out of memory. 

Although others have described ways to use the reserved 
space, they have not warned you about the RAMTOE Dragon 
who will periodically visit your reserved RAM and gobble up 
memory. Extensive field observations have revealed that the 
Dragon visits upper memory on three occasions: 

1 . A GRAFHICS command clears the visible screen and also the 
first 64 bytes above RAMTOE 

2. A CLEAR command (or "FRINT CHR$(125)") clears the first 64 
bytes above RAMTOE 

3. Scrolling the text window of a graphics mode 3-8 screen clears 
up to 800 bytes above RAMTOE 

Erogram 2 lets you play with the RAMTOE Dragon. Lines 
100 to 140 move down RAMTOE and reset the display list and 
data. Answer "NO" for all except the first pass, or the program 
will lower RAMTOP each time until you are out of memory. 

After an initial questioning, the next section (lines 200 to 290) 
first turns off the "direct memory access" for the ANTIC processor 
so that the program will operate faster. It then fills the 900 bytes 
after RAMTOE with a sequence of values between 1 and 255. 
Note that the values will remain there as long as there's power to 
the CFU (and nothing clears them). Therefore, it's not necessary 
to repeat this step on subsequent RUNs. 
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The "Choose Action" section (lines 300 to 340) GOSUBs to 
the three major program sections. 

The "Screen Play" routine (lines 1000 to 1100) exercises all 
three of the actions which call the Dragon. It clears the screen, 
changes graphics modes, and scrolls text windows. To scroll a 
window, enter graphics mode 3 to 8, and then enter numerical 
responses for as long as you wish to scroll (the amount of scrolling 
appears to affect the amount of memory cleared). 

The "Check Memory" routine (lines 2000 to 2100) prints 
addresses for the first and last positions of reserved memory and 
requests the starting and ending addresses you wish to check. 
This section allows you to look at different ranges of locations to 
see how much memory has been cleared by displaying these 
memory addresses and their values. Knowing that the Dragon 
always leaves 0's in his path, and remembering that we loaded 
memory with values between 1 and 255, 0's will appear only in 
areas he visited. (Actually, I'm not sure whether the Dragon is a he 
or a she.) When you're done checking and want to enter a 
different set of actions, a "0,0" entry will return you to the 
"Choose Action" section. 

The "Neat Trick of the Week" is found in lines 2055 and 2075. 
The memory address at 53775 can be used to tell you whether a 
key on the keyboard is being pressed at the time you PEEK it. If a 
key (any key) is depressed, 53775 contains the value 251 . When 
the key is released, 53775 will show a 255. Line 2055 then stops 
the program whenever any key is pressed and restarts it when the 
key is released. Then POKEing 764 with a 255 (line 2075) clears the 
"halt" character so that future INPUTs, GETs, etc., aren't 
confused. 

How can one avoid the Dragon anyway? There are many 
ways. You could never change graphics modes or clear or scroll 
the screen. This is difficult if you have any significant screen 
output. However, since the screen clear erases only 64 bytes, you 
could always clear the screen before the text window scrolls and 
never use those first 64 bytes. Or you could skip the first 800 bytes 
after RAMTOP and allow both scrolls and clears. Taking the other 
path, you could move the bottom of memory up and use memory 
below the new bottom (review Clark's article). However, this 
requires using a (simple) machine language subroutine. 

If you are using the reserved memory in a stable program (one 
with no further coding), you have another choice. Program 3 
shows how to use memory below RAMTOP as your special area 
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instead of reserving memoiy above RAMTOE In your program, 
wait until after all strings and arrays are dimensioned. Then, go to 
the highest resolution graphics mode and PEEK at the top of your 
BASIC program (line 10000). Since the Atari saves data on 
GOSUB and FOR/NEXT statements as it encounters them in a 
dynamic "stack" at the top of a program, you must provide some 
room for this storage. Figure on four bytes for each active GOSUB 
(one which hasn't been RETURNed), plus 16 bytes for each active 
FOR/NEXT (while it's FORing and NEXTing). Add this aUowance 
to the previous address (line 10010) and use the total as the bottom 
of your reserved area. 

Next, PEEK at MEMTOP the top of RAM available for BASIC 
programs (line 10100), and use that number as the top of your 
area. 

This method gives you the greatest possible amount of RAM 
without special code, but brings three general risks. If your BASIC 
program grows (by encountering an unexpected DIM or FOR/ 
NEXT, for instance) after you have set the lower boundary, it will 
gnaw into the bottom of "your" memory. If the graphics mode is 
changed to a higher resolution mode after the upper boundary is 
set, the display list will push down into the reserved memory. 
Last, a program loaded after the boundaries are set may be larger 
and run into the set-aside memory. 

The next time you see the RAMTOP Dragon, you'll be ready! 



Program 1 . Lower RAMTOP 

10 ? "FREE RAM = ";FRE(G) 

20 RAMTOP=PEEK < 106) : ? "RAMTOP = " ; RAM 

TOP;" PAGES" :? "LAST ADDRESS = ";R 

AMT0F*256 

3 FOR W = 1 TO 10OO:NEXT W 

4 SMALLRAM=RAMTOP-4 
50 POKE 1 06, SMALLRAM 
60 GRAPHICS 

70 RAMTOP=PEEK ( 1 06) 

80 ? "NEW FREE RAM = ":FRE<0> 

90 ? "NEW RAMTOP = "; RAMTOP;" PAGES": 

? "LAST ADDRESS = "; RAMTOP* 256 
100 ? "RESERVED MEMORY BEGINS AT ";RA 
MTOPJ256+1 
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Memory Management 



57344-65535 


ROM for character set, OS, etc. 


55296-57343 


ROM, Floating Point ROM 


53248-55295 


ROM, Hardware Registers ROM 




Unused space 


40960-49151 


CARTRIDGE ROM for BASIC, etc. 


RAMTOP 


END of RAM PEEKU06) 




Display List and Display Data 
(Usually IK in Graphics 0, 
around 8K in Graphics 8) 


MEMTOP 


Top of RAM usable by BASIC programs 
PEEK(741) + 256*PEEK(742) 


PROTOP 


Program top for the current BASIC program 
PEEK(14) + 256*PEEK(15) 




Free RAM used for programs, data storage, etc. 


BASIC LOMEM 


Start of BASIC program 




Operating System, various 
buffers, hardware registers, etc. 





Start of RAM addresses 



Program 2. Move RAMTOP 



5 

6 

1 O 
1 10 

120 

1 3 
140 
200 

2 10 

220 
230 
240 



REM 
CHEC 

I M A 
REM 
RAM 

F A 
RAM 
GRA 
REM 
FIR 
6+9 

*y ll 

UT 
POK 
FRE 
FDR 



STEP 
K = 1 
N* ( 1 

MOV 
TOP = 
MOVE 
N* ( 1 
TOP = 
PHIC 

FIL 
ST = R 
00 

F ILL 
AN*: 
E 55 
BHER 

POS 



UP 
O : 

') : 

E D 

PEE 

DO 

. 1 ) 
RAM 
S 
L 9 
AMT 



VARIABLES FOR CALLS 
S C R E E N = 2 O : Q U I T = 3 : D 
? CHR$ (125) 
OWN RAMTOP 
K ( 10 6) 

WN RAMTOP" ;: INPUT AN* : I 
="N" THEN 20O 
T0P-5:P0KE 106. RAMTOP 



BYTES 
0P*256+1 



ABOVE RAMTOP 
LAST=RAMTOP»; 



MEMORY ABOVE RAMTOP";: INP 
IF AN*(1,1)="N" THEN 30O 
9,0:REM TORN OFF SCREEN RE 

ITION=FIRST TO LAST 
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250 I 

260 V 

270 P 

280 N 

290 P 

300 R 

3 10 ? 



320 I 
330 
340 G 
1 
10 10 
1 2 

103 

104 
1 5 

106 

107 

1 1 

2 
20 10 



2 2 
2 3 

2 4 

2 5 

205 5 

2 6 
2 07 
2075 
2080 

2 10 

3 
3 1 



F VAL 
ALUE = 
OKE P 
EXT P 
OKE 5 
EM CH 

- T> " 

RAM" : 
"B TO 
NPUT 
N ACT 
OTO 3 
REM S 
? "CL 
IF AN 
? "CH 
AN* 
IF AN 
E " ; : I 
IF MO 
UNTI 
IF AN 
IF MO 
RETUR 
REM C 
*? » *? 

"LAS 
NS TO 
INPUT 
EN GO 
POKE 
E MAR 
FOR P 
VALUE 

HALT = 
N GOT 
NEXT 
POKE 
POKE 
GOTO 
RETUR 
REM Q 
? "NO 



UE=255 
VALUE+ 
OSITIO 
OSITIO 
59, 34: 
OOSE A 
WHAT A 
7 " ^ T 
QUIT" 
ACTION 
ION GO 
00 

CREEN 
EAR SC 
* < 1 , 1 ) 
ANGE G 



THEN VALUE=0 
1 

N, VALUE 
N 

REM TURN ON SCREEN 
CTION 
CTION"?" : ? 
O PLAY WIT 



"D TO CHECK 
H SCREEN":? 



SUB SCREEN, CHECK, QUI T 



PLAY 

REEN" : INPU 
="Y" THEN 
RAPHICS MO 



* ( 1 , 1 
NPUT 
D E < > 
L DON 

* i 1 , 1 
DE< >0 
N 

HECK 
"FIRS 
T = " 

CHEC 
STAR 
TO 21 
82,7: 
GIN, 
OSITI 
= PEEK 
; VALU 
PEEK ( 
O 2 5 
POSIT 
82, 2: 
764 , 2 
2 O 
N 

UIT 
RMAL 



)="Y" THEN 
MODE: GRAPHI 

THEN 7 "EN 
E, THEN NO" 
) < >"H" THEN 

THEN GRAPH 

MEMORY 
T POS I T ION 
;LAST:^ "EN 
K OR ,0 TO 
T , F IN I SH: IF 


POKE 201,11 
SET TAB 
ON=START TO 
(POSI TION) : 
E, 
3775 ) : IF H 



1 AN* 

? CHR*<125) 

DE" : : INPUT 

? "WHAT MOD 
CS MODE 
TER ANSWERS 
; : I NPUT AN* 

GOTO 1050 
I C S 



= " ; FIRST: ? 

TER POSITIO 

RETURN" 

START=0 TH 

!? :REM MOV 

FINISH 
? POSITION; 

ALT=251 THE 



ION 
REM 



RESTORE MARGIN 



END OF JOB' 



END 
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Program 3. Using Memory Below RAMTOP 

10000 PR0T0P = PEEK ( 14) +2 56* PEEK < 15) 
10010 MEMSTART=PR0T0P+24+l : REM START 

OF YOUR MEMORY; ALLOWS FOR 2 GO 

SUBS AND 1 FOR/NEXT 
10100 MEMTOP=PEEK (74 1 ) +256*PEEK (742) 
101 lO MEMF INI SH=MEMTOP: REM END OF YOU 

R MEMORY AREA 
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Listing Conventions 



In order to make special characters, inverse video, and cursor 
characters easy to type in, COMPUTE! Magazine's Atari listing 
conventions are used in all the program listings in this book. 

Please refer to the following tables and explanations if you 
come across an unusual symbol in a program listing. 



Atari Conventions 

Characters in inverse video will appear lik 
Enter these characters with the Atari logo key (A 



aiNUERSE UIDEi 



/hen vou see 


rype 


See 






(CLEAR} 


ESC 


SHIFT < 


rs 


Clear 


Screen 


{UP) 


ESC 


CTRL - 


t 


Cur sor 


Up 


fDDWN) 


ESC 


CTRL = 


4- 


Cur sor 


Down 


{LEFT> 


ESC 


CTRL + 


<- 


Cur sor 


Left 


{RIGHT} 


ESC 


CTRL * 


> 


Cur sor 


Ri ght 


{BACK S> 


ESC 


DELETE 


^ 


Bac k sp 


ace 


{DELETE} 


ESC 


CTRL DELETE 


u 


Delete 


Char AC ter 


{ INSERT} 


ESC 


CTRL INSERT 


13 


Insert 


Ch aracter 


{DEL LINE} 


ESC 


SHIFT DELETE 


[J 


Delete 


Line 


{INS LINE} 


ESC 


SHIFT INSERT 


a 


Insert 


Line 


{TAB} 


ESC 


TAB 


► 


TAB k e 


y 


<CLR TAB} 


ESC 


CTRL TAB 


□ 


Clear 


TAB 


{SET TAB} 


ESC 


SHIFT TAB 


a 


Set TAB stop 


{BELL} 


ESC 


CTRL 2 


u 


Ring B 


uzz er 


{ESC} 


ESC 


ESC 


>. 


ESCap e 


key 



Graphics characters, such as CTRL-T, the ball character • will 
appear as the "normal" letter enclosed in braces, e.g., {T}. 

A series of identical control characters, such as 10 spaces, 
three cursor-lefts, or 20 CTRL-R's, will appear as {10 SPACES}, 
{3 LEFT}, {20 R}, etc. If the character in braces is in inverse video, 
that character or characters should be entered with the Atari logo 
key. For example, { f* } means to enter a reverse-field heart with 
CTRL-comma, {5 EH } means to enter five in verse- video CTRL-U's. 
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Index 



AND see bitwise AND 
animation 95-102 
ANTIC chip 20, 51 

described 39 
ANTIC 2 mode 74 
ANTIC 4 mode 69, 73-75, 82, 83, 119 

in "Fontbyter" program 128 
ANTIC 5 mode 69, 73-75, 82, 83, 119 

in "Fontbyter" program 128 
ANTIC 8 mode 158 
ANTIC C (12) mode 159, 166 
ANTIC E (14) mode 159, 166 
ANTIC F (15) mode 21, 40, 159, 166 

graphic mode equivalents 159 
artifacting sec TV artifacts 
Atari BASIC Reference Manual 111, 193, 211 
background color 31 

example program 32-33 
background color register 21 
beep subroutine 191 
bitmap TV screen 203 
bitwise AND 163-65 
bitwise OR 163-65 
"Castle Maker" character set 78-81 
character color 60 
"Character Editor" program 55-66 
character generation see custom characters 
character graphics, four-color 69-92 
character modes 76-77 
character set 49 
character set, standard 55 
character set loader routine 72-73 
CHR$ statement 4, 111 
CLOAD statement 18 
CLOSE statement 1 
collision 21 

color changes in mode 10 22 
"Color Editor" program 33-34 
color luminances 21 
color mask, in "Screenbyter" 164-65 
color numbers 30 
COLOR statement 10, 21, 30 
COLOR statement graphics chart 14 
COMPUTE!'* First Book of Atari Graphics 

111, 120 
COMPUTED Third Book of Atari 111 
control graphics characters 49 



CSAVE statement 18 

CTIA 21 

CTRL key 49 

cursor mask, in "Screenbyter" 164-65 

custom characters 49-53, 54, 57 

example programs 52-53, 65 

mixing with standard 58 
"Demon Attack" game 37 
depth, illusion of 29 
De Re Atari 193 
DIMension statement 103-4 
display list 70, 162 

location of 95 
Display List Interrupt see DLI 
display memory 185, 203 
display mode 60 
DLI 35, 36-37 

DRAWTO command 4, 5, 95-96, 163, 185-86 
EOR 163-66 
ESCape character 4-5 

with unPRINTable characters 114 
fixed playfield example program 66-68 
"Fontbyter" utility 

discussed 119-30 

display list setup 131-33 

load routines 130 

modifications for cassette 135 
"Four-Color Character Editor" program 

82-92 
four-color modes 162 
GET from screen 17 
GOSUB statement 17-18 
GRAPHICS mode 3-8, 17, 36, 69, 84, 162, 

185, 188 
GRAPHICS 1 mode 9-16, 69 
GRAPHICS 2 mode 36, 51, 69, 188 
GRAPHICS 3 mode 69, 158, 162 
GRAPHICS 4 mode 69 
GRAPHICS 5 mode 69 
GRAPHICS 6 mode 51, 69 
"GRAPHICS 6.5" mode 159, 166 
GRAPHICS 7 mode 51, 69, 82 
"GRAPHICS 7.5" mode 159, 162, 166, 195 
GRAPHICS 8 mode 203 
GRAPHICS 9 mode 21-26 

example program 26 
GRAPHICS 10 mode 21, 22, 29 

example program 23 
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GRAPHICS 11 mode 21, 22-23 

example program 24-25 
GRAPHICS 12 mode 9-16 
GRAPHICS command, in moving 

RAMTOP 212 
GRAPHICS modes, ANTIC equivalents 159 
GTIA chip 20-26 
halt character 213 
hidden graphics 9-16 

programs 16 
high memory 50-51 

as used by Atari 208 

protection from BASIC 211-17 

when protection from BASIC fails 212 
horizontal sync see WSYNC 
"Inferno" program 97-102 
joystick, drawing with 157, 159 
LMS 39-40 

Load Memory Scan bytes see LMS 
low memory, protection from BASIC 208-10 
memory locations, choosing for graphics 

203-6 
memory map 61, 215 
memory protection 208-10, 211-17 
memory requirements (display) 204 
MEMTOP 55-56, 192, 214 
merging programs 18 
mixed graphics modes 188 
Mode graphics see GRAPHICS mode 
moire' patterns 195-200 
multicolors with DLIs 36-37 
OPEN statement 17-18 
ORA 163-66 
overlapping colors 43 
overlays 103-10 
page flipping 39-42 

animation and 95-102 
PET/CBM 49 
pixel 49 

pixel graphics 157 
pixel modes 163 
Player/Missile graphics 

discussion 111-14 

examples 106-10 

positioning in memory 204-7 

PRINT and 113 
playfields, fixed 54 

PLOT command 4, 5, 95-96, 163, 185-86 
POKE 

instead of SETCOLOR 31 

modifying display memory with 185 
POSITION statement 4, 6 
PRINT #6 command 9, 11, 57, 58, 59 
PRINT memory 112-13 
PRINT statement 

examples 114-16 



faster than POKE 112, 185-86 

with P/M graphics 111-16 
PRIOR 21, 22 

Priority Register set PRIOR 
Rainbow graphics 35-38 

demo program 37-38 
RAM 1, 50 
RAMTOP 97, 211-17 

finding 211 
ROM 50 
"Screenbyter" program 

code 168-82 

discussion 157-70 

memory locations 167 
screen codes 111 
screen dump 17-19 
screen flipping subroutine 191-92 
screen margins 3-4 
screen memory 112 

address 70 

lengths needed for different graphics 
modes 96 

reading 71 
screen pointers (read and write) 186-87 
screen RAM 39 
scrolling 185-90 

programs 189-90 

tables 189 
SETCOLOR statement 9, 10, 21, 22 

in modeO 2-3 

in modes 3, 5, and 7 30-31 
shadow register, see PRIOR 
6502 chip 20, 36 

size register for player/missile 107 
SOUND command 44 
special characters 3 
text graphics 3-8 
text modes 188 
text window 44 
3-D graphics 20-26, 36 
two-color modes 162 
TRAP statement 36 
TV artifacts 

discussion 193-96 

programs 196-200 
VBI40 

Vertical Blank Interrupt see VBI 
video display, turning off 191 
write memory 95-96 
WSYNC 36 
XIO(FILL) program 43-44 

example programs 44-45 
XL Mode 14 157 
XL Mode 15 157 
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Notes 



If you've enjoyed the articles in this book, you'll find the 
same style and quality in every monthly issue of COMPUTE! 
Magazine. Use this form to order your subscription to 
COMPUTE!. 



For Fastest Service, 
Call Our Toil-Free US Order Line 

800-334-0868 

In NC call 919-275-9809 

COMPUTE! 

P.O Box 5406 
Greensboro. NC 27403 

My Computer Is: 

□ Commodore 64 □ TI-99/4A □ Timex/Sinclair □ VIC-20 □ PET 

"J Radio Shack Color Computer □ Apple □ Atari □ Other 

□ Don't yet have one... 

□ $24 One Year US Subscription 

□ $45 Two Year US Subscription 

□ $65 Three Year US Subscription 

Subscription rates outside the US: 

□ $30 Canada 

□ $42 Europe, Australia, New Zealand/Air Delivery 

□ $52 Middle East, North Africa, Central America/Air Mail 

□ $72 Elsewhere/Air Mail 

□ $30 International Surface Mail (lengthy, unreliable delivery) 

Name 

Address 

City State Zip 

Country 

Payment must be in US Funds drawn on a US Bank; International Money 
Order, or charge card. 

□ Payment Enclosed □ VISA 

□ MasterCard □ American Express 

Ace t. No. Expires / 

28-0 



COMPUTE! Books 

P.O. Box 5406 Greensboro. NC 27403 

Ask your retailer for these COMPUTE! Books. If he or she 
has sold out, order directly from COMPUTE! 

For Fastest Service 
Call Our TOLL FREE US Order Line 

800-334-0868 

In NC call 919-275-9809 

Quantity Title Piice Total 

Machine Language for Beginners $14.95* 

Home Energy Applications $14.95* 

COMPUTED First Book of VIC $12.95* 

COMPUTE'S Second Book of VIC $12.95* 

COMPUTED First Book of VIC Games $12.95* 

COMPUTERS First Book of 64 $12.95* 

COMPUTED First Book of Atari $12.95* 

COMPUTERS Second Book of Atari $12.95* 

COMPUTED First Book of Atari Graphics $12.95* 

COMPUTED First Book of Atari Games $12.95* 

Mapping The Atari $14.95* 

Inside Atari DOS $19.95* 

The Atari BASIC Sourcebook $12.95* 

Programmer's Reference Guide for TI-99/4A $14.95* 

COMPUTED First Book of Tl Games $12.95* 

Every Kid's First Book of Robots and Computers $ 4.95t 

The Beginner's Guide to Buying A Personal 

Computer $ 3.95t 



" Add S2 shipping ana handling Outside US add S6 oir mdil. S2 

surface mail 
t Add $1 shipping and handling Outside US add S5 o« moil. $2 

surface moil 

Please add shipping and handling for each book 
ordered. 



Total enclosed or to be charged. 

All orders must be prepaid (money order, check, or charge). All 
payments must be in US funds. NC residents add 4% sales tax. 

□ Payment enclosed Please charge my: □ VISA □ MasterCard 

□ American Express Acc't. No. Expires / 

Name 

Address 

City State Zip 

Country 

Allow 4-5 weeks for delivery. 
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COMPUTED SECOND BOOK OF 

ATARI GRAPHICS 



ike COMPUTE!'* First Book of Atari Graphics, this book contains 
many articles and tools that Atari programmers will find 
extremely useful. And some full-fledged graphics utilities that not 
only teach programming, but are also as exciting to use as 
commercial computer art software. 

The graphic utilities "Screenbyter" and "Fontbyter" are 
designed to allow you to create, save, and add intricate graphic 
displays to your programs in a fraction of the time it would other- 
wise take. 

But the book doesn't stop there. For instance, articles are 
included that: teach the beginners a simple way to add color to 
their programs, show the intermediate programmer how to use 
player/missile graphics, and help the advanced programmer 
protect memory from a BASIC program, as well as many more, 
useful programs and articles. 



ISBN 0-942386-28-0 



$12.95 



